unit_test/erreval.m

   1 function rv = erreval(error_prefix, try_str, catch_str)
   2   ## erreval() extends the built-in function eval().  Return 0 if
   3   ## try_str does not raise the error of type error_prefix, return 1
   4   ## otherwise.
   5
   6   global unittest_results;
   7   for k = 1:length(unittest_results.eval_globals)
   8     eval(unittest_results.eval_globals{k});
   9   end
  10
  11   rv = 0;
  12   try
  13     eval(try_str);
  14   catch
  15     rv = errcheck(error_prefix);
  16   end
  17 endfunction