[elementary_functions] fix some nonreg tests 44/21544/4
Samuel GOUGEON [Thu, 23 Jul 2020 01:30:18 +0000 (03:30 +0200)]
  bug_13515 requires merging https://codereview.scilab.org/21545

Change-Id: I1325f89b90b6e9b460b7e0a8f5ea506d19933c1b

scilab/modules/elementary_functions/tests/nonreg_tests/bug_12059.dia.ref [deleted file]
scilab/modules/elementary_functions/tests/nonreg_tests/bug_12059.tst
scilab/modules/elementary_functions/tests/nonreg_tests/bug_13515.dia.ref [deleted file]
scilab/modules/elementary_functions/tests/nonreg_tests/bug_13515.tst
scilab/modules/elementary_functions/tests/nonreg_tests/bug_14204.dia.ref [deleted file]
scilab/modules/elementary_functions/tests/nonreg_tests/bug_14204.tst
scilab/modules/elementary_functions/tests/nonreg_tests/bug_15736.tst
scilab/modules/elementary_functions/tests/nonreg_tests/bug_4810.tst

diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_12059.dia.ref b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_12059.dia.ref
deleted file mode 100644 (file)
index 5bab79a..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Charlotte Hecquet
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 12059 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=12059
-//
-// <-- Short Description -->
-// Index returned by gsort of sparse are wrong.
-//
-indref=[2 6 5 3 4 1 8];
-[res ind]=gsort(sparse([2 9 6 4 7 8 0 2]));
-assert_checkequal(ind,indref);
index 5bab79a..f66114d 100644 (file)
@@ -6,15 +6,16 @@
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 12059 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=12059
+// http://bugzilla.scilab.org/12059
 //
 // <-- Short Description -->
 // Index returned by gsort of sparse are wrong.
 //
-indref=[2 6 5 3 4 1 8];
+indref=[2 6 5 3 4 1 8 7];
 [res ind]=gsort(sparse([2 9 6 4 7 8 0 2]));
-assert_checkequal(ind,indref);
+assert_checkequal(ind, indref);
diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_13515.dia.ref b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_13515.dia.ref
deleted file mode 100644 (file)
index db7ecd0..0000000
+++ /dev/null
@@ -1,279 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Vladislav TRUBKIN
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 13515 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/13515
-//
-// <-- Short Description -->
-// there were wrong results for matrix/hypermatrix with bitset function
-//
-// <-- CLI SHELL MODE -->
-clear "checkBitset"
-function checkBitset(x, pos, v, isOne, typeOfx)
-    if isOne then
-        select typeOfx
-        case 0 // double
-            assert_checkequal(bitset(x, pos), dbRefOne);
-            assert_checkequal(bitset(x, pos, v), dbRefOne);
-        case 8 // uint8
-            assert_checkequal(bitset(x, pos), uint8RefOne);
-            assert_checkequal(bitset(x, pos, v), uint8RefOne);
-        case 16 // uint16
-            assert_checkequal(bitset(x, pos), uint16RefOne);
-            assert_checkequal(bitset(x, pos, v), uint16RefOne);
-        case 32 // uint32
-            assert_checkequal(bitset(x, pos), uint32RefOne);
-            assert_checkequal(bitset(x, pos, v), uint32RefOne);
-        end
-    else
-        select typeOfx
-        case 0
-            assert_checkequal(bitset(x, pos, v), dbRefZero);
-        case 8
-            assert_checkequal(bitset(x, pos, v), uint8RefZero);
-        case 16
-            assert_checkequal(bitset(x, pos, v), uint16RefZero);
-        case 32
-            assert_checkequal(bitset(x, pos, v), uint32RefZero);
-        end
-    end
-endfunction
-clear "createValues"
-function [dbValue, dbPos, dbBitValue, ...
-    uint8Value, uint8Pos, uint8BitValue, ...
-    uint16Value, uint16Pos, uint16BitValue, ...
-    uint32Value, uint32Pos, uint32BitValue] = createValues(value, pos, bitValue)
-    // double
-    dbValue = value;
-    dbPos = pos;
-    dbBitValue = bitValue
-    // uint8
-    uint8Value = uint8(value);
-    uint8Pos = uint8(pos);
-    uint8BitValue = uint8(bitValue);
-    // uint16
-    uint16Value = uint16(value);
-    uint16Pos = uint16(pos);
-    uint16BitValue = uint16(bitValue);
-    // uint32
-    uint32Value = uint32(value);
-    uint32Pos = uint32(pos);
-    uint32BitValue = uint32(bitValue);
-endfunction
-clear "createReference";
-function [dbRefOne, dbRefZero, ...
-    uint8RefOne, uint8RefZero, ...
-    uint16RefOne, uint16RefZero, ...
-    uint32RefOne, uint32RefZero] = createReference(refOne, refZero)
-    dbRefOne = refOne;
-    dbRefZero = refZero;
-    uint8RefOne = uint8(dbRefOne);
-    uint16RefOne = uint16(dbRefOne);
-    uint32RefOne = uint32(dbRefOne);
-    uint8RefZero = uint8(dbRefZero);
-    uint16RefZero = uint16(dbRefZero);
-    uint32RefZero = uint32(dbRefZero);
-endfunction
-// check input arguments
-lstr = gettext("%s: Wrong number of input argument(s): At least %d expected.\n");
-errmsg = msprintf (lstr, "bitset", 2);
-assert_checkerror("bitset(1)", errmsg);
-assert_checkerror("bitset()", errmsg);
-lstr = gettext("%s: Wrong size for input arguments: Same sizes expected.\n");
-errmsg = msprintf (lstr, "bitset");
-assert_checkerror("bitset([], [1, 2])", errmsg);
-lstr = gettext("%s: Wrong value for input argument #%d: 0 or 1 expected.\n");
-errmsg = msprintf (lstr, "bitset", 3);
-assert_checkerror("bitset(1, 1, 3)", errmsg);
-assert_checkerror("bitset(1, 1, %t)", errmsg);
-assert_checkerror("bitset([1, 2], [1, 1], [2, 0])", errmsg);
-assert_checkerror("bitset([1; 2; 3], [1; 1; 1], [0; 0; 4])", errmsg);
-lstr = gettext("%s: Wrong size for input arguments: Same sizes expected.\n");
-errmsg = msprintf (lstr, "bitset");
-assert_checkerror("bitset(1, [1, 2], 1)", errmsg);
-assert_checkerror("bitset([1, 2], [1, 2, 3], 1)", errmsg);
-assert_checkerror("bitset([1, 2, 3], [1, 2, 3], 1)", errmsg);
-lstr = gettext("%s: Wrong type for input argument #%d: Scalar/matrix/hypermatrix of unsigned integers expected.\n");
-errmsg = msprintf (lstr, "bitset", 1);
-assert_checkerror("bitset(""1"", 1, 1)", errmsg);
-assert_checkerror("bitset(poly(0,""s""), 1, 1)", errmsg);
-assert_checkerror("bitset([1, -1], [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset([0.5, 0.2], [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset([%t, %t], [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset(int32([1, 1]), [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset(int16([1, 1]), [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset(int8([1, 1]), [1, 0], [1, 0])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2);
-assert_checkerror("bitset(1,""1"", 1)", errmsg);
-assert_checkerror("bitset(1, poly(0,""s""), 1)", errmsg);
-assert_checkerror("bitset([1, 0], [1, -1], [1, 0])", errmsg);
-assert_checkerror("bitset([1, 0], [0.5, 0.2], [1, 0])", errmsg);
-assert_checkerror("bitset([1; 0], [%t; %t], [1; 0])", errmsg);
-assert_checkerror("bitset([1, 0], int32([1, 1]), [1, 0])", errmsg);
-assert_checkerror("bitset([1, 0], int16([1, 1]), [1, 0])", errmsg);
-assert_checkerror("bitset([1, 0], int8([1, 1]), [1, 0])", errmsg);
-lstr = gettext("%s: Wrong value for input argument #%d: Must be between %d and %d.\n");
-errmsg = msprintf (lstr, "bitset", 2, 1, 52);
-assert_checkerror("bitset([1, 0], [1, 53], [1, 0])", errmsg);
-assert_checkerror("bitset([1, 0], [0, 5], [1, 0])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2, 1, 8);
-assert_checkerror("bitset(uint8([1, 0; 1, 0]), [1, 2; 1, 9], [1, 0; 1, 1])", errmsg);
-assert_checkerror("bitset(uint8([1, 0; 1, 0]), [1, 0; 0, 1], [1, 0; 1, 1])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2, 1, 16);
-assert_checkerror("bitset(uint16([1, 0; 1, 0]), [1, 17; 1, 9], [1, 0; 1, 1])", errmsg);
-assert_checkerror("bitset(uint16([1, 0; 1, 0]), [1, 0; 0, 1], [1, 0; 1, 1])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2, 1, 32);
-assert_checkerror("bitset(uint32([1, 0; 1, 0]), [1, 17; 33, 1], [1, 0; 1, 1])", errmsg);
-assert_checkerror("bitset(uint32([1, 0; 1, 0]), [1, 1; 0, 1], [1, 0; 1, 1])", errmsg);
-// check results
-// create value to check
-value = [9, 10, 11, 12, 13, 14, 15];
-position = [2, 3, 4, 5, 6, 7, 8];
-bitValue = zeros(1:7);
-[dbValue, dbPos, dbBitValue, ...
-uint8Value, uint8Pos, uint8BitValue, ...
-uint16Value, uint16Pos, uint16BitValue, ...
-uint32Value, uint32Pos, uint32BitValue] = createValues(value, position, bitValue);
-// create references
-refOne = [11, 14, 11, 28, 45, 78, 143];
-refZero = [9, 10, 3, 12, 13, 14, 15];
-[dbRefOne, dbRefZero, ...
-uint8RefOne, uint8RefZero, ...
-uint16RefOne, uint16RefZero, ...
-uint32RefOne, uint32RefZero] = createReference(refOne, refZero);
-// check only the same types
-// only double
-checkBitset(dbValue, dbPos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, dbPos, dbBitValue, %f, 0);
-// only uint8
-checkBitset(uint8Value, uint8Pos, uint8BitValue + 1, %t, 8);
-checkBitset(uint8Value, uint8Pos, uint8BitValue, %f, 8);
-// only uint16
-checkBitset(uint16Value, uint16Pos, uint16BitValue + 1, %t, 16);
-checkBitset(uint16Value, uint16Pos, uint16BitValue, %f, 16);
-// only uint32
-checkBitset(uint32Value, uint32Pos, uint32BitValue + 1, %t, 32);
-checkBitset(uint32Value, uint32Pos, uint32BitValue, %f, 32);
-// check mixte types
-// double
-checkBitset(dbValue, uint8Pos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, uint8Pos, dbBitValue, %f, 0);
-checkBitset(dbValue, uint8Pos, uint8BitValue, %f, 0);
-checkBitset(dbValue, uint16Pos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, uint16Pos, dbBitValue, %f, 0);
-checkBitset(dbValue, uint16Pos, uint8BitValue, %f, 0);
-checkBitset(dbValue, uint32Pos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, uint32Pos, dbBitValue, %f, 0);
-// uint8
-checkBitset(uint8Value, dbPos, dbBitValue + 1, %t, 8);
-checkBitset(uint8Value, dbPos, dbBitValue, %f, 8);
-checkBitset(uint8Value, uint16Pos, uint16BitValue + 1, %t, 8);
-checkBitset(uint8Value, uint16Pos, dbBitValue, %f, 8);
-checkBitset(uint8Value, uint32Pos, uint8BitValue, %f, 8);
-checkBitset(uint8Value, uint32Pos, dbBitValue + 1, %t, 8);
-// uint16
-checkBitset(uint16Value, dbPos, dbBitValue + 1, %t, 16);
-checkBitset(uint16Value, dbPos, dbBitValue, %f, 16);
-checkBitset(uint16Value, uint8Pos, uint16BitValue + 1, %t, 16);
-checkBitset(uint16Value, uint8Pos, dbBitValue, %f, 16);
-checkBitset(uint16Value, uint32Pos, uint8BitValue, %f, 16);
-checkBitset(uint16Value, uint32Pos, dbBitValue + 1, %t, 16);
-// uint32
-checkBitset(uint32Value, dbPos, uint32BitValue + 1, %t, 32);
-checkBitset(uint32Value, dbPos, uint32BitValue, %f, 32);
-checkBitset(uint32Value, uint16Pos, uint16BitValue + 1, %t, 32);
-checkBitset(uint32Value, uint16Pos, dbBitValue, %f, 32);
-checkBitset(uint32Value, uint8Pos, uint8BitValue, %f, 32);
-checkBitset(uint32Value, uint8Pos, dbBitValue + 1, %t, 32);
-// create value to check
-value = [4; 5; 6];
-position = [1; 2; 3];
-bitValue = zeros(1:3)';
-[dbValue, dbPos, dbBitValue, ...
-uint8Value, uint8Pos, uint8BitValue, ...
-uint16Value, uint16Pos, uint16BitValue, ...
-uint32Value, uint32Pos, uint32BitValue] = createValues(value, position, bitValue);
-// create references
-refOne = [5; 7; 6];
-refZero = [4; 5; 2];
-[dbRefOne, dbRefZero, ...
-uint8RefOne, uint8RefZero, ...
-uint16RefOne, uint16RefZero, ...
-uint32RefOne, uint32RefZero] = createReference(refOne, refZero);
-// check values
-// double
-checkBitset(dbValue, dbPos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, dbPos, dbBitValue, %f, 0);
-// uint8
-checkBitset(uint8Value, uint8Pos, uint8BitValue + 1, %t, 8);
-checkBitset(uint8Value, uint8Pos, uint8BitValue, %f, 8);
-// uint16
-checkBitset(uint16Value, uint16Pos, uint16BitValue + 1, %t, 16);
-checkBitset(uint16Value, uint16Pos, uint16BitValue, %f, 16);
-// uint32
-checkBitset(uint32Value, uint32Pos, uint32BitValue + 1, %t, 32);
-checkBitset(uint32Value, uint32Pos, uint32BitValue, %f, 32);
-// create value to check
-value = [1, 2, 3; 4, 5, 6];
-position = [2, 2, 2; 3, 3, 3];
-bitValue = zeros(2, 3);
-[dbValue, dbPos, dbBitValue, ...
-uint8Value, uint8Pos, uint8BitValue, ...
-uint16Value, uint16Pos, uint16BitValue, ...
-uint32Value, uint32Pos, uint32BitValue] = createValues(value, position, bitValue);
-// create references
-refOne = [3, 2, 3; 4, 5, 6];
-refZero = [1, 0, 1; 0, 1, 2];
-[dbRefOne, dbRefZero, ...
-uint8RefOne, uint8RefZero, ...
-uint16RefOne, uint16RefZero, ...
-uint32RefOne, uint32RefZero] = createReference(refOne, refZero);
-// check values
-// double
-checkBitset(dbValue, dbPos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, dbPos, dbBitValue, %f, 0);
-// uint8
-checkBitset(uint8Value, uint8Pos, uint8BitValue + 1, %t, 8);
-checkBitset(uint8Value, uint8Pos, uint8BitValue, %f, 8);
-// uint16
-checkBitset(uint16Value, uint16Pos, uint16BitValue + 1, %t, 16);
-checkBitset(uint16Value, uint16Pos, uint16BitValue, %f, 16);
-// uint32
-checkBitset(uint32Value, uint32Pos, uint32BitValue + 1, %t, 32);
-checkBitset(uint32Value, uint32Pos, uint32BitValue, %f, 32);
-// create value to check
-value = matrix(1:12, [2 3 1 2]);
-position = ones(value)*3;
-position(1:6) = 4;
-bitValue = matrix(zeros(1:12), size(value));
-[dbValue, dbPos, dbBitValue, ...
-uint8Value, uint8Pos, uint8BitValue, ...
-uint16Value, uint16Pos, uint16BitValue, ...
-uint32Value, uint32Pos, uint32BitValue] = createValues(value, position, bitValue);
-// create references
-refOne = [9, 10, 11, 12, 13, 14, 7, 12, 13, 14, 15, 12];
-refZero = [1, 2, 3, 4, 5, 6, 3, 8, 9, 10, 11, 8];
-refOne = matrix(refOne, [2 3 1 2]);
-refZero = matrix(refZero, [2 3 1 2]);
-[dbRefOne, dbRefZero, ...
-uint8RefOne, uint8RefZero, ...
-uint16RefOne, uint16RefZero, ...
-uint32RefOne, uint32RefZero] = createReference(refOne, refZero);
-// check values
-// double
-checkBitset(dbValue, dbPos, dbBitValue + 1, %t, 0);
-checkBitset(dbValue, dbPos, dbBitValue, %f, 0);
-// uint8
-checkBitset(uint8Value, uint8Pos, uint8BitValue + 1, %t, 8);
-checkBitset(uint8Value, uint8Pos, uint8BitValue, %f, 8);
-// uint16
-checkBitset(uint16Value, uint16Pos, uint16BitValue + 1, %t, 16);
-checkBitset(uint16Value, uint16Pos, uint16BitValue, %f, 16);
-// uint32
-checkBitset(uint32Value, uint32Pos, uint32BitValue + 1, %t, 32);
-checkBitset(uint32Value, uint32Pos, uint32BitValue, %f, 32);
index bb8ab17..a716ecb 100644 (file)
@@ -4,6 +4,10 @@
 //
 //  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 13515 -->
 //
 // <-- Bugzilla URL -->
@@ -12,9 +16,8 @@
 // <-- Short Description -->
 // there were wrong results for matrix/hypermatrix with bitset function
 //
-// <-- CLI SHELL MODE -->
 
-clear "checkBitset"
+clear checkBitset
 function checkBitset(x, pos, v, isOne, typeOfx)
     if isOne then
         select typeOfx
@@ -45,7 +48,7 @@ function checkBitset(x, pos, v, isOne, typeOfx)
     end
 endfunction
 
-clear "createValues"
+clear createValues
 function [dbValue, dbPos, dbBitValue, ...
     uint8Value, uint8Pos, uint8BitValue, ...
     uint16Value, uint16Pos, uint16BitValue, ...
@@ -84,57 +87,44 @@ function [dbRefOne, dbRefZero, ...
 endfunction
 
 // check input arguments
-lstr = gettext("%s: Wrong number of input argument(s): At least %d expected.\n");
-errmsg = msprintf (lstr, "bitset", 2);
+lstr = "%s: Wrong number of input arguments: %d or %d expected.\n";
+errmsg = msprintf (lstr, "bitset", 2, 3);
 assert_checkerror("bitset(1)", errmsg);
 assert_checkerror("bitset()", errmsg);
-lstr = gettext("%s: Wrong size for input arguments: Same sizes expected.\n");
-errmsg = msprintf (lstr, "bitset");
-assert_checkerror("bitset([], [1, 2])", errmsg);
-lstr = gettext("%s: Wrong value for input argument #%d: 0 or 1 expected.\n");
-errmsg = msprintf (lstr, "bitset", 3);
+lstr = "%s: Argument #%d: Must be in the set {%s}.\n";
+errmsg = msprintf (lstr, "bitset", 3, "0,1");
 assert_checkerror("bitset(1, 1, 3)", errmsg);
 assert_checkerror("bitset(1, 1, %t)", errmsg);
 assert_checkerror("bitset([1, 2], [1, 1], [2, 0])", errmsg);
 assert_checkerror("bitset([1; 2; 3], [1; 1; 1], [0; 0; 4])", errmsg);
-lstr = gettext("%s: Wrong size for input arguments: Same sizes expected.\n");
-errmsg = msprintf (lstr, "bitset");
-assert_checkerror("bitset(1, [1, 2], 1)", errmsg);
-assert_checkerror("bitset([1, 2], [1, 2, 3], 1)", errmsg);
-assert_checkerror("bitset([1, 2, 3], [1, 2, 3], 1)", errmsg);
-lstr = gettext("%s: Wrong type for input argument #%d: Scalar/matrix/hypermatrix of unsigned integers expected.\n");
+lstr = "%s: Argument #%d: Non-negative real integers expected.\n";
 errmsg = msprintf (lstr, "bitset", 1);
 assert_checkerror("bitset(""1"", 1, 1)", errmsg);
 assert_checkerror("bitset(poly(0,""s""), 1, 1)", errmsg);
-assert_checkerror("bitset([1, -1], [1, 0], [1, 0])", errmsg);
 assert_checkerror("bitset([0.5, 0.2], [1, 0], [1, 0])", errmsg);
 assert_checkerror("bitset([%t, %t], [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset(int32([1, 1]), [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset(int16([1, 1]), [1, 0], [1, 0])", errmsg);
-assert_checkerror("bitset(int8([1, 1]), [1, 0], [1, 0])", errmsg);
+lstr = "%s: Argument #%d: integers > 0 expected.\n";
 errmsg = msprintf (lstr, "bitset", 2);
 assert_checkerror("bitset(1,""1"", 1)", errmsg);
 assert_checkerror("bitset(1, poly(0,""s""), 1)", errmsg);
 assert_checkerror("bitset([1, 0], [1, -1], [1, 0])", errmsg);
 assert_checkerror("bitset([1, 0], [0.5, 0.2], [1, 0])", errmsg);
 assert_checkerror("bitset([1; 0], [%t; %t], [1; 0])", errmsg);
-assert_checkerror("bitset([1, 0], int32([1, 1]), [1, 0])", errmsg);
-assert_checkerror("bitset([1, 0], int16([1, 1]), [1, 0])", errmsg);
-assert_checkerror("bitset([1, 0], int8([1, 1]), [1, 0])", errmsg);
-lstr = gettext("%s: Wrong value for input argument #%d: Must be between %d and %d.\n");
-errmsg = msprintf (lstr, "bitset", 2, 1, 52);
-assert_checkerror("bitset([1, 0], [1, 53], [1, 0])", errmsg);
 assert_checkerror("bitset([1, 0], [0, 5], [1, 0])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2, 1, 8);
-assert_checkerror("bitset(uint8([1, 0; 1, 0]), [1, 2; 1, 9], [1, 0; 1, 1])", errmsg);
 assert_checkerror("bitset(uint8([1, 0; 1, 0]), [1, 0; 0, 1], [1, 0; 1, 1])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2, 1, 16);
-assert_checkerror("bitset(uint16([1, 0; 1, 0]), [1, 17; 1, 9], [1, 0; 1, 1])", errmsg);
 assert_checkerror("bitset(uint16([1, 0; 1, 0]), [1, 0; 0, 1], [1, 0; 1, 1])", errmsg);
-errmsg = msprintf (lstr, "bitset", 2, 1, 32);
-assert_checkerror("bitset(uint32([1, 0; 1, 0]), [1, 17; 33, 1], [1, 0; 1, 1])", errmsg);
 assert_checkerror("bitset(uint32([1, 0; 1, 0]), [1, 1; 0, 1], [1, 0; 1, 1])", errmsg);
 
+lstr = "%s: Argument #%d: Integers <= %d expected.\n";
+errmsg = msprintf (lstr, "bitset", 2, 1024);
+assert_checkerror("bitset([1, 0], [1, 1025], [1, 0])", errmsg);
+errmsg = msprintf (lstr, "bitset", 2, 8);
+assert_checkerror("bitset(uint8([1, 0; 1, 0]), [1, 2; 1, 9], [1, 0; 1, 1])", errmsg);
+errmsg = msprintf (lstr, "bitset", 2, 16);
+assert_checkerror("bitset(uint16([1, 0; 1, 0]), [1, 17; 1, 9], [1, 0; 1, 1])", errmsg);
+errmsg = msprintf (lstr, "bitset", 2, 32);
+assert_checkerror("bitset(uint32([1, 0; 1, 0]), [1, 17; 33, 1], [1, 0; 1, 1])", errmsg);
+
 // check results
 // create value to check
 value = [9, 10, 11, 12, 13, 14, 15];
diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_14204.dia.ref b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_14204.dia.ref
deleted file mode 100644 (file)
index 45936d2..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// <-- Non-regression test for bug 14204 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=14204
-//
-// <-- Short Description -->
-// dec2bin ( dec2base ) must show a better error message for too large values.
-err = msprintf(_("%s: Wrong value for input argument #%d: Must be between 0 and 2^52.\n"), "dec2base", 1);
-assert_checkerror("dec2bin(uint64(2^53))", err, 999);
index b45ae64..947c233 100644 (file)
@@ -6,14 +6,15 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 
 // <-- Non-regression test for bug 14204 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=14204
+// http://bugzilla.scilab.org/14204
 //
 // <-- Short Description -->
 // dec2bin ( dec2base ) must show a better error message for too large values.
 
-err = msprintf(_("%s: Wrong value for input argument #%d: Must be between 0 and 2^52.\n"), "dec2base", 1);
-assert_checkerror("dec2bin(uint64(2^53))", err, 999);
+err = msprintf(_("%s: Wrong value for input argument #%d: Must be between 0 and 2^53.\n"), "dec2base", 1);
+assert_checkerror("dec2bin(uint64(2^54))", err, 999);
index 51a65b4..e60e25b 100644 (file)
@@ -16,4 +16,6 @@
 // <-- Short Description -->
 // unique failed with complex numbers.
 
-assert_checkequal(unique([1 %i]),[%i 1]);
+assert_checkequal(unique([%i 1]),[1 %i]);
+
+// Much more tests in unique.tst
index 7e94505..764e8c9 100644 (file)
@@ -9,7 +9,7 @@
 // <-- Non-regression test for bug 4810 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=4810
+// http://bugzilla.scilab.org/4810
 //
 // <-- Short Description -->
 // gsort does not manage sparse vector as sort
@@ -17,9 +17,4 @@
 sp = sparse([1,2,4,5,3,10]);
 ref = sparse([10,5,4,3,2,1]);
 A = gsort(sp);
-if and(ref == A) <> %t then pause,end
-
-sp = sparse([1,2;4,5;3,10]);
-ierr = execstr("A = gsort(sp);","errcatch");
-if ierr <> 10000 then pause,end
-
+assert_checkequal(A, ref);