String tests: fix after commit
[scilab.git] / scilab / modules / string / tests / nonreg_tests / bug_12291.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- TEST WITH GRAPHIC -->
9 //
10 // <-- Non-regression test for bug 12291 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=12291
14 //
15 // <-- Short Description -->
16 // Unable to display a list of handle as a handle userData
17 //
18 set(get(0), "usedeprecatedskin", "on");
19 f=figure("figure_name","UIcontrol with an handle as a user_data","figure_id",0,"auto_resize","off");
20 frame=uicontrol("parent", f,"style","frame");
21 child=uicontrol("parent",frame,"style","text","string","OK");
22 set(frame,"userdata",list(child));
23 set(f,"figure_position",[201 228]);
24 set(f,"figure_size", [500 500]);
25 set(f,"axes_size",[490 400]);
26 res="uicontrol(''ForegroundColor'', [-1 -1 -1] ,''Relief'', ''ridge'', ''String'', '''' ,''Style'', ''frame'', ''Userdata'', list(uicontrol(''ForegroundColor'', [-1 -1 -1] ,''Relief'', ''flat'', ''String'', ''OK'' ,''Style'', ''text'')))";
27 assert_checkequal(sci2exp(frame,0),res);
28 assert_checktrue(execstr("frame2="+sci2exp(frame),"errcatch")==0);
29 xdel(winsid())