1
// =============================================================================
2
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3
// Copyright (C) 2012 - Scilab Enterprises - Antoine ELIAS
5
// This file is distributed under the same license as the Scilab package.
6
// =============================================================================
7
// <-- TEST WITH GRAPHIC -->
9
// <-- Non-regression test for bug 11411 -->
11
// <-- Bugzilla URL -->
12
// http://bugzilla.scilab.org/show_bug.cgi?id=11411
14
// <-- Short Description -->
15
// save function used unsigned char to store length of string, now it is an integer
17
oldMode = warning('query');
19
longstring = strcat(mgetl("SCI/COPYING-BSD")); //1639
21
//"figure".info_message
24
f.info_message = longstring;
25
f.figure_name = longstring;
26
save(TMPDIR + "/savef.dat", f);
29
load(TMPDIR + "/savef.dat");
30
assert_checkequal(f.info_message, longstring);
31
assert_checkequal(f.figure_name, longstring);
36
m = uimenu(gcf(),'label', 'test', 'callback', longstring); //no sense, just for test !
37
save(TMPDIR + "/savef.dat", m);
40
load(TMPDIR + "/savef.dat");
41
assert_checkequal(m.callback, longstring);
46
//"uicontrol".callback
47
m = uicontrol(gcf(), "Style", "text", "string",longstring, "callback", longstring);
48
save(TMPDIR + "/savef.dat", m);
51
load(TMPDIR + "/savef.dat");
52
assert_checkequal(m.callback, longstring);
53
assert_checkequal(m.string, longstring);