X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=erreval.m;fp=erreval.m;h=0000000000000000000000000000000000000000;hb=ef3085ef3c40eab925219bad1c6dbb2c6e106727;hp=995d854acbffa3a8829bf740c5a71e4b3a8fa5e8;hpb=33e4dd7a64f35fb22774d59af11f5670ab566fbc;p=octave.git diff --git a/erreval.m b/erreval.m deleted file mode 100644 index 995d854..0000000 --- a/erreval.m +++ /dev/null @@ -1,17 +0,0 @@ -function rv = erreval(error_prefix, try_str, catch_str) - ## erreval() extends the built-in function eval(). Return 0 if - ## try_str does not raise the error of type error_prefix, return 1 - ## otherwise. - - global unittest_results; - for k = 1:length(unittest_results.eval_globals) - eval(unittest_results.eval_globals{k}); - end - - rv = 0; - try - eval(try_str); - catch - rv = errcheck(error_prefix); - end -endfunction