Add a unit test about dollar 63/10163/1
Sylvestre Ledru [Wed, 9 Jan 2013 08:48:17 +0000 (09:48 +0100)]
Change-Id: I327677a0a6047f9cb079f2c67d935501dc2c58f3

scilab/modules/core/tests/unit_tests/dollar.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/dollar.tst [new file with mode: 0644]

diff --git a/scilab/modules/core/tests/unit_tests/dollar.dia.ref b/scilab/modules/core/tests/unit_tests/dollar.dia.ref
new file mode 100644 (file)
index 0000000..89a0713
--- /dev/null
@@ -0,0 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - S/E - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+a=$**2;
+assert_checkequal(a, $**2); // Was doing a segfault in Scilab 6 as some point
+a=[1,2,3;4,5,6];
+assert_checkequal(a($),6);
+b = [1 2 3;4 5 6;7 8 9];
+assert_checkequal(b(1,$),3);
+assert_checkequal(b($,2),8);
+assert_checkequal(b($,$),9);
+// Add a row at the end of the matrix b
+b($+1,:) = [1 1 1];
+b_ref = [1 2 3;4 5 6;7 8 9;1 1 1];
+assert_checkequal(b, b_ref);
diff --git a/scilab/modules/core/tests/unit_tests/dollar.tst b/scilab/modules/core/tests/unit_tests/dollar.tst
new file mode 100644 (file)
index 0000000..9e3f93e
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - S/E - Sylvestre LEDRU
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+a=$**2;
+assert_checkequal(a, $**2); // Was doing a segfault in Scilab 6 as some point
+a=[1,2,3;4,5,6];
+assert_checkequal(a($),6);
+
+b = [1 2 3;4 5 6;7 8 9];
+assert_checkequal(b(1,$),3);
+
+assert_checkequal(b($,2),8);
+assert_checkequal(b($,$),9);
+
+// Add a row at the end of the matrix b
+b($+1,:) = [1 1 1];
+b_ref = [1 2 3;4 5 6;7 8 9;1 1 1];
+assert_checkequal(b, b_ref);