helptools: remove unused cached images
[scilab.git] / scilab / modules / tclsci / tests / unit_tests / TCL_SetGet.dia.ref
1 //-----------------------------------------------------------------------------------------
2 // Tests Interface TCL
3 // Allan CORNET
4 //-----------------------------------------------------------------------------------------
5 test=TCL_SetVar("ScalarA",1.1112)
6  test  =
7  
8   T  
9 if (test==%F) then bugmes();quit;end
10 test=TCL_GetVar("ScalarA")
11  test  =
12  
13  1.1112000000   
14 if (test<>"1.1112000000") then bugmes();quit;end
15 //-----------------------------------------------------------------------------------------
16 test=TCL_SetVar("StringB","Test")
17  test  =
18  
19   T  
20 if (test==%F) then bugmes();quit;end
21 test=TCL_GetVar("StringB")
22  test  =
23  
24  Test   
25 if (test<>"Test") then bugmes();quit;end
26 //-----------------------------------------------------------------------------------------
27 b=[6.1,4.1,1.1;2.1,3.1,5.1];
28 stringb=["6.1000000000","4.1000000000","1.1000000000";"2.1000000000","3.1000000000","5.1000000000"];
29 test=TCL_SetVar("B",b)
30  test  =
31  
32   T  
33 if (test==%F) then bugmes();quit;end
34 test=TCL_GetVar('B(1,1)')
35  test  =
36  
37  6.1000000000   
38 if (test<>stringb(1,1)) then bugmes();quit;end
39 test=TCL_GetVar('B(1,2)')
40  test  =
41  
42  4.1000000000   
43 if (test<>stringb(1,2)) then bugmes();quit;end
44 test=TCL_GetVar('B(1,3)')
45  test  =
46  
47  1.1000000000   
48 if (test<>stringb(1,3)) then bugmes();quit;end
49 test=TCL_GetVar('B(2,1)')
50  test  =
51  
52  2.1000000000   
53 if (test<>stringb(2,1)) then bugmes();quit;end
54 test=TCL_GetVar('B(2,2)')
55  test  =
56  
57  3.1000000000   
58 if (test<>stringb(2,2)) then bugmes();quit;end
59 test=TCL_GetVar('B(2,3)')
60  test  =
61  
62  5.1000000000   
63 if (test<>stringb(2,3)) then bugmes();quit;end
64 test=TCL_GetVar("B")
65  test  =
66  
67 !6.1000000000  4.1000000000  1.1000000000  !
68 !                                          !
69 !2.1000000000  3.1000000000  5.1000000000  !
70 if (test<>stringb) then bugmes();quit;end
71 //-----------------------------------------------------------------------------------------
72 a=['A','B','C';'D','E','F']
73  a  =
74  
75 !A  B  C  !
76 !         !
77 !D  E  F  !
78 test=TCL_SetVar("A",a)
79  test  =
80  
81   T  
82 if (test==%F) then bugmes();quit;end
83 test=TCL_GetVar('A(1,1)')
84  test  =
85  
86  A   
87 if (test<>a(1,1)) then bugmes();quit;end
88 test=TCL_GetVar('A(1,2)')
89  test  =
90  
91  B   
92 if (test<>a(1,2)) then bugmes();quit;end
93 test=TCL_GetVar('A(1,3)')
94  test  =
95  
96  C   
97 if (test<>a(1,3)) then bugmes();quit;end
98 test=TCL_GetVar('A(2,1)')
99  test  =
100  
101  D   
102 if (test<>a(2,1)) then bugmes();quit;end
103 test=TCL_GetVar('A(2,2)')
104  test  =
105  
106  E   
107 if (test<>a(2,2)) then bugmes();quit;end
108 test=TCL_GetVar('A(2,3)')
109  test  =
110  
111  F   
112 if (test<>a(2,3)) then bugmes();quit;end
113 test=TCL_GetVar("A")
114  test  =
115  
116 !A  B  C  !
117 !         !
118 !D  E  F  !
119 if (test<>a) then bugmes();quit;end
120 //-----------------------------------------------------------------------------------------