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