99fada1165948b13276b6e2947387b1deaac9d07
[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 // <-- JVM NOT MANDATORY -->
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 clear();
18 assert_checkequal(isdef("A"), %f);
19 assert_checkequal(isdef("C"), %f);
20 function test_clear()
21   A = 6;
22   clear("A")
23   assert_checkequal(isdef("A"), %f);
24 endfunction
25 test_clear();
26 A = 3;
27 assert_checkequal(isdef("A"), %t);
28 assert_checkequal(A, 3);
29 ierr = execstr("clear SCI", "errcatch");
30 msg_err = lasterror();
31 assert_checkequal(ierr, 13);
32 msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
33 assert_checkequal (msg_err, msg_ref);
34 ierr = execstr("clear(1)", "errcatch");
35 assert_checkequal(ierr, 201);
36 msg_ref = msprintf(gettext("%s: Wrong type for argument %d: A single string expected.\n"), "clear", 1);
37 assert_checkerror ("clear(1)", msg_ref);
38 ierr = execstr("clear([""A"",""B""])", "errcatch");
39 assert_checkequal(ierr, 999);
40 msg_ref = msprintf(gettext("%s: Wrong size for argument %d: A single string expected.\n"), "clear", 1);
41 assert_checkerror ("clear([""A"",""B""])", msg_ref);
42 ierr = execstr("clear toto", "errcatch");
43 assert_checkequal(ierr, 0);