bug 11411: save function used unsigned char to store length of string, now it is...
[scilab.git] / scilab / modules / graphics / tests / nonreg_tests / bug_11411.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - Scilab Enterprises - Antoine ELIAS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- TEST WITH GRAPHIC -->
8 //
9 // <-- Non-regression test for bug 11411 -->
10 //
11 // <-- Bugzilla URL -->
12 // http://bugzilla.scilab.org/show_bug.cgi?id=11411
13 //
14 // <-- Short Description -->
15 //  save function used unsigned char to store length of string, now it is an integer
16 oldMode = warning('query');
17 warning("off");
18 longstring = strcat(mgetl("SCI/COPYING-BSD")); //1639
19 //"figure".info_message
20 //"figure".igure_name
21 f = gcf();
22 f.info_message = longstring;
23 f.figure_name = longstring;
24 save(TMPDIR + "/savef.dat", f);
25 delete(f);
26 clear f;
27 load(TMPDIR + "/savef.dat");
28 assert_checkequal(f.info_message, longstring);
29 assert_checkequal(f.figure_name, longstring);
30 delete(f);
31 clear f;
32 //"uimenu".callback
33 m = uimenu(gcf(),'label', 'test', 'callback', longstring); //no sense, just for test !
34 save(TMPDIR + "/savef.dat", m);
35 delete(gcf());
36 clear m;
37 load(TMPDIR + "/savef.dat");
38 assert_checkequal(m.callback, longstring);
39 delete(gcf());
40 clear m;
41 //"uicontrol".String
42 //"uicontrol".callback
43 m = uicontrol(gcf(), "Style", "text", "string",longstring, "callback", longstring);
44 save(TMPDIR + "/savef.dat", m);
45 delete(gcf());
46 clear m;
47 load(TMPDIR + "/savef.dat");
48 assert_checkequal(m.callback, longstring);
49 assert_checkequal(m.string, longstring);
50 delete(gcf());
51 clear m;
52 warning(oldMode);