add test setdiff
Allan CORNET [Tue, 22 Sep 2009 12:09:38 +0000 (14:09 +0200)]
scilab/modules/elementary_functions/tests/unit_tests/setdiff.dia.ref [new file with mode: 0644]
scilab/modules/elementary_functions/tests/unit_tests/setdiff.tst [new file with mode: 0644]

diff --git a/scilab/modules/elementary_functions/tests/unit_tests/setdiff.dia.ref b/scilab/modules/elementary_functions/tests/unit_tests/setdiff.dia.ref
new file mode 100644 (file)
index 0000000..3907fe6
--- /dev/null
@@ -0,0 +1,23 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
+// =============================================================================
+a = [223;111;2;4;2;2];
+b = [2;3;21;223;123;22];
+// =============================================================================
+REF_V = [4; 111];
+REF_K = [4; 2];
+[v,k]= setdiff(a,b);
+if and(v == REF_V) <> %t then bugmes();quit;end
+if and(k == REF_K) <> %t then bugmes();quit;end
+// =============================================================================
+REF_V = ['111' ; '4'];
+REF_K = [2; 4];
+[v,k] = setdiff(string(a),string(b));
+if and(v == REF_V) <> %t then bugmes();quit;end
+if and(k == REF_K) <> %t then bugmes();quit;end
+// =============================================================================
diff --git a/scilab/modules/elementary_functions/tests/unit_tests/setdiff.tst b/scilab/modules/elementary_functions/tests/unit_tests/setdiff.tst
new file mode 100644 (file)
index 0000000..1fb9e1c
--- /dev/null
@@ -0,0 +1,23 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
+// =============================================================================
+a = [223;111;2;4;2;2];
+b = [2;3;21;223;123;22];
+// =============================================================================
+REF_V = [4; 111];
+REF_K = [4; 2];
+[v,k]= setdiff(a,b);
+if and(v == REF_V) <> %t then pause,end
+if and(k == REF_K) <> %t then pause,end
+// =============================================================================
+REF_V = ['111' ; '4'];
+REF_K = [2; 4];
+[v,k] = setdiff(string(a),string(b));
+if and(v == REF_V) <> %t then pause,end
+if and(k == REF_K) <> %t then pause,end
+// =============================================================================
\ No newline at end of file