scilab/modules/string/tests/unit_tests/evstr.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 //
   8 // <-- CLI SHELL MODE -->
   9 //
  10 // =============================================================================
  11 // unit tests evstr
  12 // =============================================================================
  13 a = 1;
  14 b = 2;
  15 Z = ["a","b"];
  16 res = evstr(Z);
  17 assert_checkequal(res(1), a);
  18 assert_checkequal(res(2), b);
  19 // =============================================================================
  20 a = 1;
  21 b = 2;
  22 Z = list(["%(1)","%(1)-%(2)"], ["a+1","b+1"]);
  23 res = evstr(Z);
  24 assert_checkequal(res, [2 -1]);
  25 // =============================================================================
  26 assert_checktrue(isnan(evstr(%nan)));
  27 assert_checktrue(isinf(evstr(%inf)));
  28 assert_checktrue(isnan(evstr("%nan")));
  29 assert_checktrue(isinf(evstr("%inf")));
  30 assert_checktrue(isnan(evstr("Nan")));
  31 assert_checktrue(isinf(evstr("Inf")));
  32 assert_checktrue(isnan(evstr("NaN")));
  33 assert_checktrue(isinf(evstr(-%inf)));
  34 assert_checktrue(isinf(evstr("-%inf")));
  35 assert_checktrue(isinf(evstr("-Inf")));
  36 // =============================================================================
  37 Scilab_value = 3;
  38 assert_checkequal(Scilab_value, evstr("Scilab_value"));
  39 // =============================================================================
  40 clear toto;
  41 assert_checkfalse(execstr("evstr(''toto'')", "errcatch") == 0);
  42 assert_checkfalse(execstr("evstr(toto)", "errcatch") == 0);
  43 // =============================================================================
  44 s = rand(3,3,3);
  45 assert_checkequal(execstr("evstr(s)", "errcatch"), 0);
  46 // =============================================================================
  47 function foo(), endfunction
  48 assert_checkequal(execstr("evstr(''foo'')", "errcatch"), 0);
  49 // =============================================================================
  50 assert_checkequal(evstr(""), []);
  51 // =============================================================================