tclsci fixed after 33ce445f981d 85/21385/3
Cedric Delamarre [Fri, 21 Feb 2020 15:59:15 +0000 (16:59 +0100)]
  test_run tclsci TCL_SetGet
  test_run tclsci bug_1591

Change-Id: Ie98a4eb26f697839b8654804c57d6be6fc5c2ee7

scilab/modules/tclsci/src/c/TCL_ArrayDim.c
scilab/modules/tclsci/tests/unit_tests/TCL_SetGet.dia.ref [deleted file]
scilab/modules/tclsci/tests/unit_tests/TCL_SetGet.tst

index de4ae88..54503a1 100644 (file)
@@ -49,8 +49,7 @@ char **TCL_ArrayDim(Tcl_Interp *TCLinterpreter, char *VarName, int *nb_lines, in
 {
     char **index_list = NULL;
 
-
-    if (strcmp(VarName, TCL_ALL_INDEXES) == 0 || strcmp(VarName, TCL_NUMERICAL_INDEXES) == 0)
+    if (strcmp(VarName, TCL_ALL_INDEXES) && strcmp(VarName, TCL_NUMERICAL_INDEXES))
     {
         char MyTclCommand[2048];
         char *StrArrayIndexes = NULL;
diff --git a/scilab/modules/tclsci/tests/unit_tests/TCL_SetGet.dia.ref b/scilab/modules/tclsci/tests/unit_tests/TCL_SetGet.dia.ref
deleted file mode 100644 (file)
index 6c86c0d..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-//-----------------------------------------------------------------------------------------
-// Tests Interface TCL
-// Allan CORNET
-//-----------------------------------------------------------------------------------------
-test=TCL_SetVar("ScalarA",1.1112)
- test  =
-  T  
-if (test==%F) then bugmes();quit;end
-test=TCL_GetVar("ScalarA")
- test  =
- 1.1112000000   
-if (test<>"1.1112000000") then bugmes();quit;end
-//-----------------------------------------------------------------------------------------
-test=TCL_SetVar("StringB","Test")
- test  =
-  T  
-if (test==%F) then bugmes();quit;end
-test=TCL_GetVar("StringB")
- test  =
- Test   
-if (test<>"Test") then bugmes();quit;end
-//-----------------------------------------------------------------------------------------
-b=[6.1,4.1,1.1;2.1,3.1,5.1];
-stringb=["6.1000000000","4.1000000000","1.1000000000";"2.1000000000","3.1000000000","5.1000000000"];
-test=TCL_SetVar("B",b)
- test  =
-  T  
-if (test==%F) then bugmes();quit;end
-test=TCL_GetVar('B(1,1)')
- test  =
- 6.1000000000   
-if (test<>stringb(1,1)) then bugmes();quit;end
-test=TCL_GetVar('B(1,2)')
- test  =
- 4.1000000000   
-if (test<>stringb(1,2)) then bugmes();quit;end
-test=TCL_GetVar('B(1,3)')
- test  =
- 1.1000000000   
-if (test<>stringb(1,3)) then bugmes();quit;end
-test=TCL_GetVar('B(2,1)')
- test  =
- 2.1000000000   
-if (test<>stringb(2,1)) then bugmes();quit;end
-test=TCL_GetVar('B(2,2)')
- test  =
- 3.1000000000   
-if (test<>stringb(2,2)) then bugmes();quit;end
-test=TCL_GetVar('B(2,3)')
- test  =
- 5.1000000000   
-if (test<>stringb(2,3)) then bugmes();quit;end
-test=TCL_GetVar("B")
- test  =
-!6.1000000000  4.1000000000  1.1000000000  !
-!                                          !
-!2.1000000000  3.1000000000  5.1000000000  !
-if (test<>stringb) then bugmes();quit;end
-//-----------------------------------------------------------------------------------------
-a=['A','B','C';'D','E','F']
- a  =
-!A  B  C  !
-!         !
-!D  E  F  !
-test=TCL_SetVar("A",a)
- test  =
-  T  
-if (test==%F) then bugmes();quit;end
-test=TCL_GetVar('A(1,1)')
- test  =
- A   
-if (test<>a(1,1)) then bugmes();quit;end
-test=TCL_GetVar('A(1,2)')
- test  =
- B   
-if (test<>a(1,2)) then bugmes();quit;end
-test=TCL_GetVar('A(1,3)')
- test  =
- C   
-if (test<>a(1,3)) then bugmes();quit;end
-test=TCL_GetVar('A(2,1)')
- test  =
- D   
-if (test<>a(2,1)) then bugmes();quit;end
-test=TCL_GetVar('A(2,2)')
- test  =
- E   
-if (test<>a(2,2)) then bugmes();quit;end
-test=TCL_GetVar('A(2,3)')
- test  =
- F   
-if (test<>a(2,3)) then bugmes();quit;end
-test=TCL_GetVar("A")
- test  =
-!A  B  C  !
-!         !
-!D  E  F  !
-if (test<>a) then bugmes();quit;end
-//-----------------------------------------------------------------------------------------
index 5f1ec5d..eadef78 100644 (file)
@@ -4,74 +4,40 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+// <-- NO CHECK REF -->
 //-----------------------------------------------------------------------------------------
 // Tests Interface TCL
 //-----------------------------------------------------------------------------------------
-test=TCL_SetVar("ScalarA",1.1112)
-if (test==%F) then pause,end
+assert_checktrue(TCL_SetVar("ScalarA",1.1112));
+assert_checkequal(TCL_GetVar("ScalarA"), "1.1112000000");
 
-test=TCL_GetVar("ScalarA")
-if (test<>"1.1112000000") then pause,end
 //-----------------------------------------------------------------------------------------
-test=TCL_SetVar("StringB","Test")
-if (test==%F) then pause,end
+assert_checktrue(TCL_SetVar("StringB","Test"));
+assert_checkequal(TCL_GetVar("StringB"), "Test");
 
-test=TCL_GetVar("StringB")
-if (test<>"Test") then pause,end
 //-----------------------------------------------------------------------------------------
 b=[6.1,4.1,1.1;2.1,3.1,5.1];
 stringb=["6.1000000000","4.1000000000","1.1000000000";"2.1000000000","3.1000000000","5.1000000000"];
 
-test=TCL_SetVar("B",b)
-if (test==%F) then pause,end
-
-test=TCL_GetVar('B(1,1)')
-if (test<>stringb(1,1)) then pause,end
-
-test=TCL_GetVar('B(1,2)')
-if (test<>stringb(1,2)) then pause,end
-
-test=TCL_GetVar('B(1,3)')
-if (test<>stringb(1,3)) then pause,end
-
-test=TCL_GetVar('B(2,1)')
-if (test<>stringb(2,1)) then pause,end
-
-test=TCL_GetVar('B(2,2)')
-if (test<>stringb(2,2)) then pause,end
-
-test=TCL_GetVar('B(2,3)')
-if (test<>stringb(2,3)) then pause,end
-
-test=TCL_GetVar("B")
-if (test<>stringb) then pause,end
+assert_checktrue(TCL_SetVar("B",b));
+assert_checkequal(TCL_GetVar('B(1,1)'), stringb(1,1));
+assert_checkequal(TCL_GetVar('B(1,2)'), stringb(1,2));
+assert_checkequal(TCL_GetVar('B(1,3)'), stringb(1,3));
+assert_checkequal(TCL_GetVar('B(2,1)'), stringb(2,1));
+assert_checkequal(TCL_GetVar('B(2,2)'), stringb(2,2));
+assert_checkequal(TCL_GetVar('B(2,3)'), stringb(2,3));
+assert_checkequal(TCL_GetVar("B"), stringb);
 
 //-----------------------------------------------------------------------------------------
 a=['A','B','C';'D','E','F']
 
-test=TCL_SetVar("A",a)
-if (test==%F) then pause,end
-
-test=TCL_GetVar('A(1,1)')
-if (test<>a(1,1)) then pause,end
-
-test=TCL_GetVar('A(1,2)')
-if (test<>a(1,2)) then pause,end
-
-test=TCL_GetVar('A(1,3)')
-if (test<>a(1,3)) then pause,end
-
-test=TCL_GetVar('A(2,1)')
-if (test<>a(2,1)) then pause,end
-
-test=TCL_GetVar('A(2,2)')
-if (test<>a(2,2)) then pause,end
-
-test=TCL_GetVar('A(2,3)')
-if (test<>a(2,3)) then pause,end
-
-test=TCL_GetVar("A")
-if (test<>a) then pause,end
+assert_checktrue(TCL_SetVar("A",a));
+assert_checkequal(TCL_GetVar('A(1,1)'), a(1,1));
+assert_checkequal(TCL_GetVar('A(1,2)'), a(1,2));
+assert_checkequal(TCL_GetVar('A(1,3)'), a(1,3));
+assert_checkequal(TCL_GetVar('A(2,1)'), a(2,1));
+assert_checkequal(TCL_GetVar('A(2,2)'), a(2,2));
+assert_checkequal(TCL_GetVar('A(2,3)'), a(2,3));
+assert_checkequal(TCL_GetVar("A"), a);
 //-----------------------------------------------------------------------------------------