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);