* Bug #10278 fixed - clear(1) returns a wrong error message.
[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 // <-- JVM NOT MANDATORY -->
11
12 A = 2;
13 B = 4;
14 C = 6;
15 clear("B")
16 assert_checkequal(isdef("B"), %f);
17 assert_checkequal(isdef("A"), %t);
18 assert_checkequal(isdef("C"), %t);
19
20 clear();
21 assert_checkequal(isdef("A"), %f);
22 assert_checkequal(isdef("C"), %f);
23
24 function test_clear()
25   A = 6;
26   clear("A")
27   assert_checkequal(isdef("A"), %f);
28 endfunction
29 test_clear();
30 A = 3;
31 assert_checkequal(isdef("A"), %t);
32 assert_checkequal(A, 3);
33
34 ierr = execstr("clear SCI", "errcatch");
35 msg_err = lasterror();
36 assert_checkequal(ierr, 13);
37 msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
38 assert_checkequal (msg_err, msg_ref);
39
40 ierr = execstr("clear(1)", "errcatch");
41 assert_checkequal(ierr, 201);
42 msg_ref = msprintf(gettext("%s: Wrong type for argument %d: A single string expected.\n"), "clear", 1);
43 assert_checkerror ("clear(1)", msg_ref);
44
45 ierr = execstr("clear toto", "errcatch");
46 assert_checkequal(ierr, 0);