X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=erreval.m;fp=erreval.m;h=995d854acbffa3a8829bf740c5a71e4b3a8fa5e8;hb=8aa8cc9c12fe18887eb13a08962bde982dad996d;hp=0000000000000000000000000000000000000000;hpb=437324f2edf6b26c772080f8cbe3b321dda8d70f;p=octave.git

diff --git a/erreval.m b/erreval.m
new file mode 100644
index 0000000..995d854
--- /dev/null
+++ b/erreval.m
@@ -0,0 +1,17 @@
+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