02d33012519e74252582bea09e223bc72185d1c6
[scilab.git] / scilab / modules / core / tests / unit_tests / clear.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 //
9
10 A = 2;
11 B = 4;
12 C = 6;
13 clear("B")
14 assert_checkequal(isdef("B"), %f);
15 assert_checkequal(isdef("A"), %t);
16 assert_checkequal(isdef("C"), %t);
17
18 clear();
19 assert_checkequal(isdef("A"), %f);
20 assert_checkequal(isdef("C"), %f);
21
22 function test_clear()
23   A = 6;
24   clear("A")
25   assert_checkequal(isdef("A"), %f);
26 endfunction
27 test_clear();
28 A = 3;
29 assert_checkequal(isdef("A"), %t);
30 assert_checkequal(A, 3);
31
32 ierr = execstr("clear SCI", "errcatch");
33 msg_err = lasterror();
34 assert_checkequal(ierr, 13);
35 msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
36 assert_checkequal (msg_err, msg_ref);
37
38 ierr = execstr("clear(1)", "errcatch");
39 assert_checkequal(ierr, 201);
40 msg_ref = msprintf(gettext("%s: Wrong type for argument #%d: String matrix expected.\n"), "clear", 1);
41 assert_checkerror ("clear(1)", msg_ref);
42
43 ierr = execstr("clear toto", "errcatch");
44 assert_checkequal(ierr, 0);