fix tests in [data_structures|integer|sound|string|tclsci|time|xml] 38/20738/8
Samuel GOUGEON [Fri, 25 Jan 2019 01:26:06 +0000 (02:26 +0100)]
 4037 = fake: no actual fix. No actual test sample file
 1628 [time]   => made automatic
 7954 [tclsci] => made automatic
 TCL_EvalFile: interactive test made clearer rcould be made automatic)

Change-Id: I95f7d88845da5a3e04fa516d9de28bbdbc7e4ecf

scilab/modules/data_structures/tests/nonreg_tests/bug_7181.dia.ref
scilab/modules/integer/tests/nonreg_tests/bug_1977.dia.ref [deleted file]
scilab/modules/integer/tests/nonreg_tests/bug_1977.tst
scilab/modules/sound/tests/nonreg_tests/bug_4037.tst [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_8356.dia.ref [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_8356.tst
scilab/modules/tclsci/tests/nonreg_tests/bug_7954.tst
scilab/modules/tclsci/tests/unit_tests/TCL_EvalFile.tst
scilab/modules/time/tests/nonreg_tests/bug_1628.tst
scilab/modules/xml/tests/unit_tests/htmlRead.dia.ref [deleted file]
scilab/modules/xml/tests/unit_tests/htmlRead.tst

index be82ca3..c2dfe29 100644 (file)
@@ -19,4 +19,4 @@ s.txt = null();
 s.num = null();
 s.pol = null();
 disp(s)
-1x1 struct array with no field.
+1x1 struct array with no fields.
diff --git a/scilab/modules/integer/tests/nonreg_tests/bug_1977.dia.ref b/scilab/modules/integer/tests/nonreg_tests/bug_1977.dia.ref
deleted file mode 100644 (file)
index 93dbfc6..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-//<-- CLI SHELL MODE -->
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 1977 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1977
-//
-// <-- Short Description -->
-//    inttype has stars in error message
-//
-//
-//    -->inttype("hell")
-//                    !--error 44
-//    ***th argument is incorrect
-//
-//
-//    Francois
-execstr('inttype(''hell'')','errcatch');
-if lasterror() <> msprintf(gettext("inttype: Wrong type for input argument #1 : int or double expected.\n")) then bugmes();quit;end
index 44d59da..f151d3e 100644 (file)
@@ -1,10 +1,12 @@
-//<-- CLI SHELL MODE -->
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//<-- CLI SHELL MODE -->
+//<-- ENGLISH IMPOSED -->
+//<-- NO CHECK REF -->
 
 // <-- Non-regression test for bug 1977 -->
 //
@@ -19,8 +21,6 @@
 //                    !--error 44
 //    ***th argument is incorrect
 //
-//
-//    Francois
 
 execstr('inttype(''hell'')','errcatch');
 if lasterror() <> msprintf(gettext("inttype: Wrong type for input argument #1 : int or double expected.\n")) then pause,end
diff --git a/scilab/modules/sound/tests/nonreg_tests/bug_4037.tst b/scilab/modules/sound/tests/nonreg_tests/bug_4037.tst
deleted file mode 100644 (file)
index bd31b0e..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- Non-regression test for bug 4037 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=4037
-//
-// <-- Short Description -->
-// waveread can not read broadcast wave format
-// a error is returned
-
-// <-- INTERACTIVE TEST -->
-
-// create or download a bfw file
-// try to load wavread
-
-namebfw = "bfw.wav"
-ierr = execstr('wavread(namebfw)','errcatch');
-if ierr<> 999 then pause,end
diff --git a/scilab/modules/string/tests/nonreg_tests/bug_8356.dia.ref b/scilab/modules/string/tests/nonreg_tests/bug_8356.dia.ref
deleted file mode 100644 (file)
index d282e6c..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2016 - Samuel GOUGEON
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 8356 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=8356
-//
-// <-- Short Description -->
-// sci2exp() applied to a list having undefined fields yielded an error
-// sci2exp() applied to tlists or mlists having undefined fields gave wrong results
-
-format("v",10);
-L = list(%pi, , "Hello");
-m = mlist(["test","a","b","c"], , 3.1415927, , ,"Hello");
-t = tlist(["test" "a" "b" "c"], %pi, , %z);
-assert_checkequal(sci2exp(L), "list(3.1415927,,""Hello"")");
-assert_checkequal(sci2exp(L,15), ["list(3.1415927,,..";"""Hello"")"]);
-assert_checkequal(sci2exp(t), "tlist([""test"",""a"",""b"",""c""],3.1415927,,z)");
-assert_checkequal(sci2exp(t,20), ["tlist(..";"[""test"",""a"",""b"",""c""],..";"3.1415927,,z)"]);
-assert_checkequal(sci2exp(m), "mlist([""test"",""a"",""b"",""c""],,3.1415927,,,""Hello"")");
-assert_checkequal(sci2exp(m, 30), ["mlist([""test"",""a"",""b"",""c""],,.."; "3.1415927,,,""Hello"")"]);
-
-c = tlist(["test","b","u","t","L"],%t,,"It works",list(%z,,%i));
-assert_checkequal(sci2exp(c), "tlist([""test"",""b"",""u"",""t"",""L""],%t,,""It works"",list(z,,%i))");
-r = ["tlist([""test"",""b"",""u"",""t"",""L""],%t,,.."
-     """It works"",list(z,,%i))"
-     ];
-assert_checkequal(sci2exp(c,40),r);
index d282e6c..1ed1d88 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 8356 -->
 //
@@ -22,14 +23,14 @@ m = mlist(["test","a","b","c"], , 3.1415927, , ,"Hello");
 t = tlist(["test" "a" "b" "c"], %pi, , %z);
 assert_checkequal(sci2exp(L), "list(3.1415927,,""Hello"")");
 assert_checkequal(sci2exp(L,15), ["list(3.1415927,,..";"""Hello"")"]);
-assert_checkequal(sci2exp(t), "tlist([""test"",""a"",""b"",""c""],3.1415927,,z)");
-assert_checkequal(sci2exp(t,20), ["tlist(..";"[""test"",""a"",""b"",""c""],..";"3.1415927,,z)"]);
+assert_checkequal(sci2exp(t), "tlist([""test"",""a"",""b"",""c""],3.1415927,,%z)");
+assert_checkequal(sci2exp(t,20), ["tlist(..";"[""test"",""a"",""b"",""c""],..";"3.1415927,,%z)"]);
 assert_checkequal(sci2exp(m), "mlist([""test"",""a"",""b"",""c""],,3.1415927,,,""Hello"")");
 assert_checkequal(sci2exp(m, 30), ["mlist([""test"",""a"",""b"",""c""],,.."; "3.1415927,,,""Hello"")"]);
 
 c = tlist(["test","b","u","t","L"],%t,,"It works",list(%z,,%i));
-assert_checkequal(sci2exp(c), "tlist([""test"",""b"",""u"",""t"",""L""],%t,,""It works"",list(z,,%i))");
+assert_checkequal(sci2exp(c), "tlist([""test"",""b"",""u"",""t"",""L""],%t,,""It works"",list(%z,,%i))");
 r = ["tlist([""test"",""b"",""u"",""t"",""L""],%t,,.."
-     """It works"",list(z,,%i))"
+     """It works"",list(%z,,%i))"
      ];
 assert_checkequal(sci2exp(c,40),r);
index c5f7412..7cb9bb1 100644 (file)
@@ -1,23 +1,24 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
+// Copyright (C) 2019 - Samuel GOUGEON
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 7954 -->
 //
-// <-- INTERACTIVE TEST -->
-//
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7954
+// http://bugzilla.scilab.org/7954
 //
 // <-- Short Description -->
 //
-// i=0;
-// while [ true ]; do
-//    ./bin/scilab  -e "TCL_EvalStr \"set a 3\"; exit()" -nw;
-//    i=$(($i + 1));
-//    echo $i;
-// done
 // # Bug present => it should freeze at some point
+
+for i = 1:100
+    x = string(rand(1));
+    TCL_EvalStr("set a "+x);
+    x2 = TCL_GetVar("a");
+    assert_checkequal(x2, x);
+end
index c032d3a..82c3cb7 100644 (file)
@@ -6,6 +6,8 @@
 // =============================================================================
 // <-- INTERACTIVE TEST -->
 
+// Check support to UTF-8 file names
+// ---------------------------------
 tab_ref = [ ..
 "世界您好", ..
 "азеазея", ..
@@ -23,9 +25,11 @@ cd TCL_tests;
 origfile = SCI + "/modules/tclsci/demos/tk/puzzle";
 
 for i = 1 : size(tab_ref, "*")
-       newfile = tab_ref(i);
-       copyfile(origfile, newfile);
-       TCL_EvalFile(newfile);
+    newfile = tab_ref(i);
+    copyfile(origfile, newfile);
+    TCL_EvalFile(newfile);
+    sleep(3)
+    // the puzzle must be displayed correctly for any source filename
 end
 
 cd TMPDIR
index 84b0624..5dfd762 100644 (file)
@@ -1,16 +1,18 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2009 - DIGITEO - Allan CORNET
+// Copyright (C) 2019 - Samuel GOUGEON
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-// <-- INTERACTIVE TEST -->
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 
 // <-- Non-regression test for bug 1628 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1628
+// http://bugzilla.scilab.org/1628
 //
 // <-- Short Description -->
 // long programs (several hours) I get a negative value for timer()
 // compares result with another tools ;)
 // t= cputime; pause(9.9);e=cputime-t
 
-timer();sleep(9900);timer()
+timer();
+sleep(9900);
+assert_checktrue(timer()>0);
 
 // another test
 runs = 50;
-cumulate = 0; a = 0; b = 0;
 for i = 1:runs
-    timer();
     a = abs(rand(1500, 1500, "n")/10);
     b = a';
     a = matrix(b, 750, 3000);
     b = a';
-    timing = timer();
-    cumulate = cumulate + timing;
-end;
-timing = cumulate/runs;
-times(1, 1) = timing;
-disp("Creation, transp., deformation of a 1500x1500 matrix (sec): " + string(timing));
-clear("a"); clear("b");
-
-
+end
+assert_checktrue(timer()>0);
diff --git a/scilab/modules/xml/tests/unit_tests/htmlRead.dia.ref b/scilab/modules/xml/tests/unit_tests/htmlRead.dia.ref
deleted file mode 100644 (file)
index 83f47c4..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// ===========================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Calixte DENIZET
-//
-//  This file is distributed under the same license as the Scilab package.
-// ===========================================================================
-// <-- CLI SHELL MODE -->
-doc = htmlRead(SCI + "/modules/helptools/data/pages/homepage-en_US.html");
-xp = xmlXPath(doc,"//a/@href");
-assert_checktrue(xp.size > 0);
-links = xmlAsText(xp);
-assert_checktrue(or(links=="http://www.scilab.org/"));
-htmlWrite(doc, TMPDIR + "/foo.html");
-xmlDelete(doc);
-doc = htmlRead(TMPDIR + "/foo.html");
-xp = xmlXPath(doc,"//a/@href");
-assert_checktrue(xp.size > 0);
-links2 = xmlAsText(xp);
-assert_checkequal(links, links2);
-xmlDelete(doc);
index 393ef3b..26fed29 100644 (file)
@@ -6,12 +6,13 @@
 // ===========================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 
 doc = htmlRead(SCI + "/modules/helptools/data/pages/homepage-en_US.html");
 xp = xmlXPath(doc,"//a/@href");
 assert_checktrue(xp.size > 0);
 links = xmlAsText(xp);
-assert_checktrue(or(links=="http://www.scilab.org/"));
+assert_checktrue(or(links=="https://www.scilab.org/"));
 htmlWrite(doc, TMPDIR + "/foo.html");
 xmlDelete(doc);
 doc = htmlRead(TMPDIR + "/foo.html");