Add unit test framework and sample script.

[octave.git] / errcheck.m

diff --git a/errcheck.m b/errcheck.m
new file mode 100644 (file)
index 0000000..fc3d2f2
--- /dev/null
+++ b/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