1 files changed, 15 insertions, 0 deletions
diff --git a/libslang/src/test/inc.sl b/libslang/src/test/inc.sl
new file mode 100644
index 0000000..54e3d06
--- /dev/null
+++ b/libslang/src/test/inc.sl
@@ -0,0 +1,15 @@
+define print (x)
+{
+   x = string (x);
+   () = fputs (x, stdout);
+   () = fflush (stdout);
+}
+
+define failed ()
+{
+   variable s = __pop_args (_NARGS);
+   s = sprintf (__push_args(s));
+   () = fprintf (stderr, "Failed: %s\n", s);
+   exit (1);
+}
+