adding test system

test.sh

@@ -0,0 +1,17 @@
+#!/usr/bin/env zsh
+
+for fic in tests/*.in; do
+  input="${fic:r}"
+  arg="$(cat $input.in)"
+  print -n -- "$input: "
+  runghc y.hs "$arg" > $input.res
+  if diff $input.res $input.out > /dev/null; then
+    print -- "OK"
+  else
+	print -- "ERROR"
+    print -- "  expected: '$(cat $input.out)'"
+    print -- "       got: '$(cat $input.res)'"
+    print -- ""
+  fi
+  \rm -f $input.res
+done

tests/binarynumber.in

@@ -0,0 +1 @@
+#b001010

tests/binarynumber.out

@@ -0,0 +1 @@
+Number 10

tests/number.in

@@ -0,0 +1 @@
+32

tests/number.out

@@ -0,0 +1 @@
+Number 32

tests/string-2.in

@@ -0,0 +1 @@
+"This is a string with a return ->\n<- Here"

tests/string-2.out

@@ -0,0 +1 @@
+String "This is a string with a return ->\n<- Here"

tests/string-3.in

@@ -0,0 +1 @@
+"This is a string with a tab ->\t<- Here"

tests/string-3.out

@@ -0,0 +1 @@
+String "This is a string with a tab ->\t<- Here"

tests/string.in

@@ -0,0 +1 @@
+"This is a simple string"

tests/string.out

@@ -0,0 +1 @@
+String "This is a simple string"