14 missing NR test files added 27/21427/3
Samuel GOUGEON [Mon, 2 Mar 2020 23:51:12 +0000 (00:51 +0100)]
http://bugzilla.scilab.org/2463
http://bugzilla.scilab.org/9349
http://bugzilla.scilab.org/4171
http://bugzilla.scilab.org/8301
http://bugzilla.scilab.org/8393
http://bugzilla.scilab.org/12341
http://bugzilla.scilab.org/14916
http://bugzilla.scilab.org/15158
http://bugzilla.scilab.org/14191
http://bugzilla.scilab.org/15421
http://bugzilla.scilab.org/7083
http://bugzilla.scilab.org/13537
http://bugzilla.scilab.org/8930
http://bugzilla.scilab.org/15607
test_run ast bug_2463
test_run ast bug_9349
test_run data_structures bug_4171
test_run data_structures bug_8301
test_run data_structures bug_8393
test_run fileio bug_12341
test_run fileio bug_14916
test_run functions bug_15158
test_run graphics bug_14191
test_run graphics bug_15421
test_run graphics bug_7083
test_run sound bug_13537
test_run sparse bug_8930
test_run tclsci bug_15607

Change-Id: If2def5d6731d228e1f315a408e12e13930f34ec8

15 files changed:
scilab/modules/ast/tests/nonreg_tests/bug_2463.tst [new file with mode: 0644]
scilab/modules/ast/tests/nonreg_tests/bug_9349.tst [new file with mode: 0644]
scilab/modules/data_structures/tests/nonreg_tests/bug_4171.dia.ref [new file with mode: 0644]
scilab/modules/data_structures/tests/nonreg_tests/bug_4171.tst [new file with mode: 0644]
scilab/modules/data_structures/tests/nonreg_tests/bug_8301.tst [new file with mode: 0644]
scilab/modules/data_structures/tests/nonreg_tests/bug_8393.tst [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_12341.tst [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_14916.tst [new file with mode: 0644]
scilab/modules/functions/tests/nonreg_tests/bug_15158.tst [new file with mode: 0644]
scilab/modules/graphics/tests/nonreg_tests/bug_14191.tst [new file with mode: 0644]
scilab/modules/graphics/tests/nonreg_tests/bug_15421.tst [new file with mode: 0644]
scilab/modules/graphics/tests/nonreg_tests/bug_7083.tst [new file with mode: 0644]
scilab/modules/sound/tests/nonreg_tests/bug_13537.tst [new file with mode: 0644]
scilab/modules/sparse/tests/nonreg_tests/bug_8930.tst [new file with mode: 0644]
scilab/modules/tclsci/tests/nonreg_tests/bug_15607.tst [new file with mode: 0644]

diff --git a/scilab/modules/ast/tests/nonreg_tests/bug_2463.tst b/scilab/modules/ast/tests/nonreg_tests/bug_2463.tst
new file mode 100644 (file)
index 0000000..02f0c81
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+// <-- ENGLISH IMPOSED -->
+//
+// <-- Non-regression test for bug 2463 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/2463
+//
+// <-- Short Description -->
+// Named arguments were accepted in built-in functions
+
+a = 2;
+msg = "type: Wrong number of input arguments: 1 expected.";
+assert_checkerror("type(a=%t)", msg);
+
+a = 2;
+msg = "sin: Wrong number of input argument(s): 1 expected.";
+assert_checkerror("sin(a=0)", msg);
diff --git a/scilab/modules/ast/tests/nonreg_tests/bug_9349.tst b/scilab/modules/ast/tests/nonreg_tests/bug_9349.tst
new file mode 100644 (file)
index 0000000..e6eb9f2
--- /dev/null
@@ -0,0 +1,39 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 9349 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/9349
+//
+// <-- Short Description -->
+// Empty parentheses after a field in a macro led to a recurence problem
+
+// No compilation error should occur:
+clear a
+function foo(), y = a.b(), endfunction
+clear foo
+function y=foo()
+    a = mlist(['V' 'b'], mlist(['V']))
+    y = a.b()
+endfunction
+
+obj = mlist(['A']);
+deff('y=foo()', 'y=123');
+deff('y=%A_e(b,a)', 'y=foo');
+obj.toto()
+
+function test()
+    obj = mlist(['A']);
+    deff('y=foo()','y=123');
+    deff('y=%A_e(b,a)', 'y=foo');
+    obj.toto()
+endfunction
+test()
diff --git a/scilab/modules/data_structures/tests/nonreg_tests/bug_4171.dia.ref b/scilab/modules/data_structures/tests/nonreg_tests/bug_4171.dia.ref
new file mode 100644 (file)
index 0000000..81994e9
--- /dev/null
@@ -0,0 +1,63 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- Non-regression test for bug 4171 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/4171
+//
+// <-- Short Description -->
+// A list including some structures was wrongly displayed
+// Bug 4171
+// --------
+stru.field = "value";
+// Add this struct in a tlist
+tl1 = tlist("X", stru);
+tl2 = tlist("X", tl1, tl1)
+ tl2  = 
+       tl2(1)
+  "X"
+       tl2(2)
+              tl2(2)(1)
+  "X"
+              tl2(2)(2)
+  field = "value"
+       tl2(3)
+              tl2(3)(1)
+  "X"
+              tl2(3)(2)
+  field = "value"
+// Same beahviour with a list
+l1 = list(stru);
+l2 = list(l1, l1)
+ l2  = 
+       l2(1)
+              l2(1)(1)
+  field = "value"
+       l2(2)
+              l2(2)(1)
+  field = "value"
+// Bug 11484 (duplicate)
+// ---------
+x = struct('a',4,'b',3);
+y = struct('a',5,'b',6);
+z = struct('a',7,'b',2);
+list_c = list();
+list_c(0) = list(x,y);
+list_c(0) = list(z)
+ list_c  = 
+       list_c(1)
+              list_c(1)(1)
+  a = 7
+  b = 2
+       list_c(2)
+              list_c(2)(1)
+  a = 4
+  b = 3
+              list_c(2)(2)
+  a = 5
+  b = 6
diff --git a/scilab/modules/data_structures/tests/nonreg_tests/bug_4171.tst b/scilab/modules/data_structures/tests/nonreg_tests/bug_4171.tst
new file mode 100644 (file)
index 0000000..ac83faa
--- /dev/null
@@ -0,0 +1,38 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- CLI SHELL MODE -->
+
+// <-- Non-regression test for bug 4171 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/4171
+//
+// <-- Short Description -->
+// A list including some structures was wrongly displayed
+
+// Bug 4171
+// --------
+stru.field = "value";
+
+// Add this struct in a tlist
+tl1 = tlist("X", stru);
+tl2 = tlist("X", tl1, tl1)
+
+// Same beahviour with a list
+l1 = list(stru);
+l2 = list(l1, l1)
+
+// Bug 11484 (duplicate)
+// ---------
+x = struct('a',4,'b',3);
+y = struct('a',5,'b',6);
+z = struct('a',7,'b',2);
+
+list_c = list();
+list_c(0) = list(x,y);
+list_c(0) = list(z)
diff --git a/scilab/modules/data_structures/tests/nonreg_tests/bug_8301.tst b/scilab/modules/data_structures/tests/nonreg_tests/bug_8301.tst
new file mode 100644 (file)
index 0000000..e9da31c
--- /dev/null
@@ -0,0 +1,23 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 8301 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/8301
+
+//
+// <-- Short Description -->
+// definedfields() reported void fields in mlist or tlist, as defined
+
+T = tlist(["test" "txt" "real" "bool"],"Hi",,%T);
+assert_checkequal(definedfields(T), [1 2 4]);
+
+M = mlist(["test" "txt" "real" "bool"],"Hi",,%T);
+assert_checkequal(definedfields(M), [1 2 4]);
diff --git a/scilab/modules/data_structures/tests/nonreg_tests/bug_8393.tst b/scilab/modules/data_structures/tests/nonreg_tests/bug_8393.tst
new file mode 100644 (file)
index 0000000..48e8bf7
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 8393 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/8393
+//
+// <-- Short Description -->
+// definedfields() reported void fields as existing
+
+L = list(%pi,,%z,);
+assert_checkequal(definedfields(L), [1 3])
+v = L(2);
+assert_checkfalse(isdef("v","local"));
+v = L(4);
+assert_checkfalse(isdef("v","local"));
+clear L
+L = list();
+L(10) = 4;
+assert_checkequal(definedfields(L), 10);
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_12341.tst b/scilab/modules/fileio/tests/nonreg_tests/bug_12341.tst
new file mode 100644 (file)
index 0000000..29e0700
--- /dev/null
@@ -0,0 +1,25 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 12341 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/12341
+//
+// <-- Short Description -->
+// rmdir() could delete a branch in which pwd() is
+
+mkdir(TMPDIR+"/foo");
+mkdir(TMPDIR+"/foo/bar");
+cd(TMPDIR+"/foo/bar");
+s = rmdir(TMPDIR+"/foo");
+assert_checkequal(s, 0);
+s = rmdir(TMPDIR+"/foo/bar");
+assert_checkequal(s, 0);
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_14916.tst b/scilab/modules/fileio/tests/nonreg_tests/bug_14916.tst
new file mode 100644 (file)
index 0000000..48281cc
--- /dev/null
@@ -0,0 +1,24 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- INTERACTIVE TEST -->
+//
+// <-- Non-regression test for bug 14916 -->
+//
+// <-- Bugzilla URL -->
+// https://bugzilla.scilab.org/14916
+//
+// <-- Short Description -->
+// read(%io(1), 1, 1, '(a)') + keyboard input + enter crashed Scilab
+
+read(%io(1), 1, 1, '(a)')
+
+// Enter some input in the console, and validate by pressing <enter>
+// TEST: 
+//  - Scilab should not have crashed
+//  - Your input should be displayed in ans
+
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_15158.tst b/scilab/modules/functions/tests/nonreg_tests/bug_15158.tst
new file mode 100644 (file)
index 0000000..2264e36
--- /dev/null
@@ -0,0 +1,23 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 15158 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/15158
+//
+// <-- Short Description -->
+// ver()(1,2) in a macro made macr2tree() crashing on it.
+
+function test()
+   SCI_VER  = ver()(1,2)
+endfunction
+
+assert_checkequal(execstr("macr2tree(test)", "errcatch"), 0);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_14191.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_14191.tst
new file mode 100644 (file)
index 0000000..a180724
--- /dev/null
@@ -0,0 +1,37 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- TEST WITH GRAPHIC -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 14191 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/14191
+//
+// <-- Short Description -->
+// plot(logflag,..) new option
+
+clf
+plot([1 10],[1,10]);
+assert_checkequal(gca().log_flags, "nnn");
+
+clf
+plot("nn",[1 10],[1,10]);
+assert_checkequal(gca().log_flags, "nnn");
+
+clf
+plot("ln",[1 10],[1,10]);
+assert_checkequal(gca().log_flags, "lnn");
+
+clf
+plot("ll",[1 10],[1,10]);
+assert_checkequal(gca().log_flags, "lln");
+
+clf
+plot("nl",[1 10],[1,10]);
+assert_checkequal(gca().log_flags, "nln");
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_15421.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_15421.tst
new file mode 100644 (file)
index 0000000..1272141
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- TEST WITH GRAPHIC -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 15421 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/15421
+//
+// <-- Short Description -->
+// The default grid_style value is now 7
+
+assert_checkequal(gda().grid_style, [7 7]);
+clf reset
+param3d([0 1],[0 1],[0 1]);
+assert_checkequal(gca().grid_style, [7 7 7]);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_7083.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_7083.tst
new file mode 100644 (file)
index 0000000..530d110
--- /dev/null
@@ -0,0 +1,30 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- Non-regression test for bug 7083 -->
+//
+// <-- TEST WITH GRAPHIC -->
+// <-- NO CHECK REF -->
+// <-- ENGLISH IMPOSED -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/7083
+//
+// <-- Short Description -->
+// Setting uicontrol.backgroundcolor=[10 10 10] with RGB values > 1
+// yielded a critical error and a stack problem.
+
+
+h = gcf();
+h_tb = uicontrol(h,'style','text', 'position', [10 10 20 200]);
+set(h_tb,'backgroundcolor',[1 1 1]);
+
+msg = "Wrong value for ''BackgroundColor'' property: Numbers between 0 and 1 expected.";
+assert_checkerror("set(h_tb,''backgroundcolor'',[10 10 10]);", msg);
+assert_checkequal(h_tb.backgroundcolor, [1 1 1]);
+assert_checkerror("h_tb; h_tb.backgroundcolor=[10 10 10];", msg);
+assert_checkequal(h_tb.backgroundcolor, [1 1 1]);
diff --git a/scilab/modules/sound/tests/nonreg_tests/bug_13537.tst b/scilab/modules/sound/tests/nonreg_tests/bug_13537.tst
new file mode 100644 (file)
index 0000000..cfdfaf8
--- /dev/null
@@ -0,0 +1,23 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 13537 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/13537
+//
+// <-- Short Description -->
+// wavwrite(..) yielded EXCEPTION_ACCESS_VIOLATION error
+//
+s = ones([1:12345678])/2;
+filename = TMPDIR+"/test.wav";
+assert_checkequal(execstr("wavwrite(s, 44100, 16, filename);","errcatch"), 0);
+sleep(100)
+mdelete(filename);
diff --git a/scilab/modules/sparse/tests/nonreg_tests/bug_8930.tst b/scilab/modules/sparse/tests/nonreg_tests/bug_8930.tst
new file mode 100644 (file)
index 0000000..441239f
--- /dev/null
@@ -0,0 +1,30 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 8930 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/8930
+//
+// <-- Short Description -->
+// Some assignments in boolean sparse matrices failed
+
+
+A = sparse(%t);
+A(:) = %t;
+assert_checktrue(A);
+A = sparse(%t);
+A(:) = %f;
+assert_checkfalse(A);
+A = sparse([%t %f]);
+A(:) = %t;
+assert_checkequal(A, sparse([%T %T]));
+A(:) = %f;
+assert_checkequal(A, sparse([%F %F]));
diff --git a/scilab/modules/tclsci/tests/nonreg_tests/bug_15607.tst b/scilab/modules/tclsci/tests/nonreg_tests/bug_15607.tst
new file mode 100644 (file)
index 0000000..8db8b23
--- /dev/null
@@ -0,0 +1,39 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2020 - Samuel GOUGEON
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- NO CHECK REF -->
+//
+// <-- Non-regression test for bug 15607 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/15607
+//
+// <-- Short Description -->
+//
+// 1) TCL_GetVar no longer worked for arrays
+// 2) Running TCL_CreateSlave() froze Scilab
+// 3) In a function, TCL_EvalStr("ScilabEval h=5") created h at the top level.
+
+// 1)
+a = ["A","B","C" ; "D","E","F"];
+TCL_SetVar("A", a);
+assert_checkequal(TCL_GetVar("A"), a);
+
+// 2) Just run the following instructions.
+//    If they freezes Scilab, the whole test will fail.
+TCL_CreateSlave('TCLSlave');
+b = [66,44,11 ; 22,33,55];
+TCL_SetVar("B_slave", b, 'TCLSlave');
+TCL_GetVar('B_slave','TCLSlave');
+TCL_DeleteInterp('TCLSlave');
+
+// 3) 
+clear h
+function xyz()
+   TCL_EvalStr("ScilabEval h=5")
+endfunction
+xyz();
+assert_checkfalse(isdef("h","l"));