fix core tests
[scilab.git] / scilab / modules / core / tests / unit_tests / colon.tst
index 9849eb6..c7177a5 100644 (file)
@@ -1,34 +1,36 @@
-// =============================================================================\r
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
-// Copyright (C) 2008 - INRIA - Michael Baudin\r
-//\r
-//  This file is distributed under the same license as the Scilab package.\r
-// =============================================================================\r
-\r
-// With start, stop integers\r
-computed=1:4\r
-expected = [1 2 3 4]\r
-if norm(expected-computed)>100*%eps then pause,end\r
-// With start, step, stop integers\r
-computed=1:2:5\r
-expected = [1 3 5]\r
-if norm(expected-computed)>100*%eps then pause,end\r
-// With start before stop\r
-computed=size(1:0)\r
-expected = [0 0]\r
-if expected<>computed then pause,end\r
-// With start before stop, whatever the step\r
-computed=size(1:1:0)\r
-expected = [0 0]\r
-if expected<>computed then pause,end\r
-// With start, step, stop reals\r
-a=(1-0.9)*50\r
-computed=(1:a)\r
-expected = [1 2 3 4 5]\r
-if norm(expected-computed)>100*%eps then pause,end\r
-// With start, step, stop reals\r
-step=(1-0.9)*20\r
-computed=1:step:10\r
-expected = [1 3 5 7 9]\r
-if norm(expected-computed)>100*%eps then pause,end\r
-\r
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Michael Baudin
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+
+// With start, stop integers
+computed = 1:4;
+expected = [1 2 3 4];
+assert_checkequal(computed, expected);
+// With start, step, stop integers
+computed=1:2:5
+expected = [1 3 5]
+assert_checkequal(computed, expected);
+// With start before stop
+computed=size(1:0)
+expected = [0 0]
+assert_checkequal(computed, expected);
+// With start before stop, whatever the step
+computed=size(1:1:0)
+expected = [0 0]
+assert_checkequal(computed, expected);
+// With start, step, stop reals
+a=(1-0.9)*50
+computed=(1:a)
+expected = [1 2 3 4 5]
+assert_checkalmostequal(computed, expected);
+// With start, step, stop reals
+step=(1-0.9)*20
+computed=1:step:10
+expected = [1 3 5 7 9]
+assert_checkalmostequal(computed, expected);
+