543ba092a703c856d16a1376dab9b8540508ce2f
[scilab.git] / scilab / modules / core / tests / unit_tests / clear.dia.ref
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 A = 2;
10 B = 4;
11 C = 6;
12 clear("B")
13 assert_checkequal(isdef("B"), %f);
14 assert_checkequal(isdef("A"), %t);
15 assert_checkequal(isdef("C"), %t);
16 clear();
17 assert_checkequal(isdef("A"), %f);
18 assert_checkequal(isdef("C"), %f);
19 function test_clear()
20   A = 6;
21   clear("A")
22   assert_checkequal(isdef("A"), %f);
23 endfunction
24 test_clear();
25 A = 3;
26 assert_checkequal(isdef("A"), %t);
27 assert_checkequal(A, 3);
28 ierr = execstr("clear SCI", "errcatch");
29 msg_err = lasterror();
30 assert_checkequal(ierr, 13);
31 msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
32 assert_checkequal (msg_err, msg_ref);
33 ierr = execstr("clear(1)", "errcatch");
34 assert_checkequal(ierr, 201);
35 msg_ref = msprintf(gettext("%s: Wrong type for argument %d: Valid variable name expected.\n"), "clear", 1);
36 assert_checkerror ("clear(1)", msg_ref);
37 ierr = execstr("clear toto", "errcatch");
38 assert_checkequal(ierr, 0);