X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=unit_test%2Ferrcheck.m;fp=unit_test%2Ferrcheck.m;h=fc3d2f2c827bf7018e5f1da6c9a48dae56d55318;hp=0000000000000000000000000000000000000000;hb=ef3085ef3c40eab925219bad1c6dbb2c6e106727;hpb=33e4dd7a64f35fb22774d59af11f5670ab566fbc

diff --git a/unit_test/errcheck.m b/unit_test/errcheck.m
new file mode 100644
index 0000000..fc3d2f2
--- /dev/null
+++ b/unit_test/errcheck.m
@@ -0,0 +1,7 @@
+function e = errcheck(error_prefix)
+  e = 1;
+  if (index(__error_text__, error_prefix) != 1)
+    e = 0;
+    printf("\nUNEXPECTED ERROR: %s", __error_text__);
+  endif
+end