Test : list creation with null elements 71/14871/2
Bruno JOFRET [Wed, 16 Jul 2014 13:12:19 +0000 (15:12 +0200)]
Change-Id: Ia435469cfa45c5c7d0a6508583f3d90fb0d41d24

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

diff --git a/scilab/modules/data_structures/tests/unit_tests/list.dia.ref b/scilab/modules/data_structures/tests/unit_tests/list.dia.ref
new file mode 100644 (file)
index 0000000..0375d59
--- /dev/null
@@ -0,0 +1,61 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2014-2014 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// test de creation des listes avec des elements null()
+l = list(,);
+m = l(1);
+n = l(2);
+assert_checkfalse(isdef("m"));
+assert_checkfalse(isdef("n"));
+l = list(1,);
+n = l(2);
+assert_checkfalse(isdef("n"));
+assert_checkequal(l(1), 1);
+l = list(,1);
+m = l(1);
+assert_checkfalse(isdef("m"));
+assert_checkequal(l(2), 1);
+l = list(,,);
+m = l(1);
+n = l(2);
+p = l(3);
+assert_checkfalse(isdef("m"));
+assert_checkfalse(isdef("n"));
+assert_checkfalse(isdef("p"));
+l = list(1,,);
+n = l(2);
+p = l(3);
+assert_checkequal(l(1), 1);
+assert_checkfalse(isdef("n"));
+assert_checkfalse(isdef("p"));
+l = list(,1,);
+m = l(1);
+p = l(3);
+assert_checkfalse(isdef("m"));
+assert_checkequal(l(2), 1);
+assert_checkfalse(isdef("p"));
+l = list(,,1);
+m = l(1);
+n = l(2);
+assert_checkfalse(isdef("m"));
+assert_checkfalse(isdef("n"));
+assert_checkequal(l(3), 1);
+l = list(1,1,);
+p = l(3);
+assert_checkequal(l(1), 1);
+assert_checkequal(l(2), 1);
+assert_checkfalse(isdef("p"));
+l = list(1,,1);
+n = l(2);
+assert_checkequal(l(1), 1);
+assert_checkfalse(isdef("n"));
+assert_checkequal(l(3), 1);
+l = list(,1,1);
+m = l(1);
+assert_checkfalse(isdef("m"));
+assert_checkequal(l(2), 1);
+assert_checkequal(l(3), 1);
diff --git a/scilab/modules/data_structures/tests/unit_tests/list.tst b/scilab/modules/data_structures/tests/unit_tests/list.tst
new file mode 100644 (file)
index 0000000..3971a42
--- /dev/null
@@ -0,0 +1,72 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2014-2014 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+
+// test de creation des listes avec des elements null()
+
+l = list(,);
+m = l(1);
+n = l(2);
+assert_checkfalse(isdef("m"));
+assert_checkfalse(isdef("n"));
+
+l = list(1,);
+n = l(2);
+assert_checkfalse(isdef("n"));
+assert_checkequal(l(1), 1);
+
+l = list(,1);
+m = l(1);
+assert_checkfalse(isdef("m"));
+assert_checkequal(l(2), 1);
+
+l = list(,,);
+m = l(1);
+n = l(2);
+p = l(3);
+assert_checkfalse(isdef("m"));
+assert_checkfalse(isdef("n"));
+assert_checkfalse(isdef("p"));
+
+l = list(1,,);
+n = l(2);
+p = l(3);
+assert_checkequal(l(1), 1);
+assert_checkfalse(isdef("n"));
+assert_checkfalse(isdef("p"));
+
+l = list(,1,);
+m = l(1);
+p = l(3);
+assert_checkfalse(isdef("m"));
+assert_checkequal(l(2), 1);
+assert_checkfalse(isdef("p"));
+
+l = list(,,1);
+m = l(1);
+n = l(2);
+assert_checkfalse(isdef("m"));
+assert_checkfalse(isdef("n"));
+assert_checkequal(l(3), 1);
+
+l = list(1,1,);
+p = l(3);
+assert_checkequal(l(1), 1);
+assert_checkequal(l(2), 1);
+assert_checkfalse(isdef("p"));
+
+l = list(1,,1);
+n = l(2);
+assert_checkequal(l(1), 1);
+assert_checkfalse(isdef("n"));
+assert_checkequal(l(3), 1);
+
+l = list(,1,1);
+m = l(1);
+assert_checkfalse(isdef("m"));
+assert_checkequal(l(2), 1);
+assert_checkequal(l(3), 1);
\ No newline at end of file