add test about clear

Change-Id: I94153e46f27793aac7cc2b9fd9e5642989fff8fa

diff --git a/scilab/modules/core/tests/unit_tests/clear.dia.ref b/scilab/modules/core/tests/unit_tests/clear.dia.ref
new file mode 100644 (file)
index 0000000..a8d041f
--- /dev/null
+++ b/scilab/modules/core/tests/unit_tests/clear.dia.ref
@@ -0,0 +1,36 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+A = 2;
+B = 4;
+C = 6;
+clear("B")
+assert_checkequal(isdef("B"), %f);
+assert_checkequal(isdef("A"), %t);
+assert_checkequal(isdef("C"), %t);
+clear();
+assert_checkequal(isdef("A"), %f);
+assert_checkequal(isdef("C"), %f);
+function test_clear()
+  A = 6;
+  clear("A")
+  assert_checkequal(isdef("A"), %f);
+endfunction
+test_clear();
+A = 3;
+assert_checkequal(isdef("A"), %t);
+assert_checkequal(A, 3);
+ierr = execstr("clear SCI", "errcatch");
+msg_err = lasterror();
+assert_checkequal(ierr, 13);
+msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
+assert_checkequal (msg_err, msg_ref);
+ierr = execstr("clear(1)", "errcatch");
+assert_checkequal(ierr, 201);
+msg_ref = msprintf(gettext("%s: Wrong type for argument %d: String matrix expected.\n"), "clear", 1);
+assert_checkerror ("clear(1)", msg_ref);
+ierr = execstr("clear toto", "errcatch");
+assert_checkequal(ierr, 0);

diff --git a/scilab/modules/core/tests/unit_tests/clear.tst b/scilab/modules/core/tests/unit_tests/clear.tst
new file mode 100644 (file)
index 0000000..7053106
--- /dev/null
+++ b/scilab/modules/core/tests/unit_tests/clear.tst
@@ -0,0 +1,42 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+A = 2;
+B = 4;
+C = 6;
+clear("B")
+assert_checkequal(isdef("B"), %f);
+assert_checkequal(isdef("A"), %t);
+assert_checkequal(isdef("C"), %t);
+
+clear();
+assert_checkequal(isdef("A"), %f);
+assert_checkequal(isdef("C"), %f);
+
+function test_clear()
+  A = 6;
+  clear("A")
+  assert_checkequal(isdef("A"), %f);
+endfunction
+test_clear();
+A = 3;
+assert_checkequal(isdef("A"), %t);
+assert_checkequal(A, 3);
+
+ierr = execstr("clear SCI", "errcatch");
+msg_err = lasterror();
+assert_checkequal(ierr, 13);
+msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
+assert_checkequal (msg_err, msg_ref);
+
+ierr = execstr("clear(1)", "errcatch");
+assert_checkequal(ierr, 201);
+msg_ref = msprintf(gettext("%s: Wrong type for argument %d: String matrix expected.\n"), "clear", 1);
+assert_checkerror ("clear(1)", msg_ref);
+
+ierr = execstr("clear toto", "errcatch");
+assert_checkequal(ierr, 0);