Implement OBLISTs

[muddle-interpreter.git] / src / test_oblists

diff --git a/src/test_oblists b/src/test_oblists
new file mode 100755 (executable)
index 0000000..7ce5674
--- /dev/null
+++ b/src/test_oblists
@@ -0,0 +1,9 @@
+#!/bin/sh
+
+assert_eq () {
+    [ "$1" = "$2" ] || ( echo Assertion failed: "\"$1\"" = "\"$2\""; exit 1 )
+}
+
+assert_eq foo "$(echo foo | ./muddle)"
+assert_eq '(foo bar baz)' "$(echo '(foo bar baz)' | ./muddle)"
+assert_eq '(foo foo foo)' "$(echo '(foo foo foo)' | ./muddle)"