better testing method

test.sh

@@ -1,17 +1,29 @@
 #!/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
+tmpfic=tests/tmp
+for input in tests/*; do
+    sed 's/\\/\\\\/g' $input > $tmpfic
+    # set 3 as the file descriptor for the file $tmpfic
+    exec 3< $tmpfic
+    done=0
+    num=1
+    until ((done == 1)); do
+        read <&3 program
+        (($?!=0)) && {done=1;continue}
+        read <&3 expected
+        (($?!=0)) && {done=1;continue}
+        result="$( runghc y.hs "$program")"
+        printf "%18s (line %3d): " ${input:t} $num
+        if [[ $expected == $result ]]; then
+            print -- "OK"
+        else
+	        print -- "ERROR"
+            print -- "   program: '$program'"
+            print -- "  expected: '$expected'"
+            print -- "       got: '$result'"
+            print -- ""
+        fi
+        ((num+=2))
+    done
 done
+\rm -f $tmpfic

tests/binarynumber

@@ -1 +1,2 @@
+#b001010
 Number 10

tests/binarynumber.in

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

tests/char

@@ -1 +1,2 @@
+#\a
 Character 'a'

tests/char.in

@@ -1 +0,0 @@
-#\a

tests/float

@@ -1 +1,2 @@
+3.14
 Float 3.14

tests/float.in

@@ -1 +0,0 @@
-3.14

tests/number

@@ -1 +1,2 @@
+32
 Number 32

tests/number.in

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

tests/string

@@ -0,0 +1,6 @@
+"This is a simple string"
+String "This is a simple string"
+"This is a string with a return ->\n<- Here"
+String "This is a string with a return ->\n<- Here"
+"More difficult string \n, \r, \t, \\, \x, \A"
+String "More difficult string \n, \r, \t, \\, x, A"

tests/string-2.in

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

tests/string-2.out

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

tests/string-3.in

@@ -1 +0,0 @@
-"More difficult string \n, \r, \t, \\, \x, \A"

tests/string-3.out

@@ -1 +0,0 @@
-String "More difficult string \n, \r, \t, \\, x, A"

tests/string.in

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

tests/string.out

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

y.hs

@@ -1,5 +1,6 @@
 module Main where
 
+import Control.Monad (liftM)
 import Data.List (foldl')
 import Text.ParserCombinators.Parsec hiding (spaces)
 import System.Environment   (getArgs)
@@ -36,6 +37,12 @@ parseExpr = parseString
         <|> try parseFloat  -- 3.1415
         <|> parseNumber     -- 3, #b011001, #o070, #d930, #xFF3
         <|> parseAtom       -- symbol-323
+        <|> parseQuoted
+        <|> do
+                char '('
+                x <- try parseList <|> parseDottedList
+                char ')'
+                return x
 
 symbol :: Parser Char
 symbol = oneOf "!#$%&|*+-/:<=>?@^_~"
@@ -138,3 +145,19 @@ parseNumber = do
               <|> parseBaseSpecifiedNumber
     return (Number number)
 
+-- Recursive Parsers
+
+parseList :: Parser LispVal
+parseList = liftM List $ sepBy parseExpr spaces
+
+parseDottedList :: Parser LispVal
+parseDottedList = do
+    head <- endBy parseExpr spaces
+    tail <- char '.' >> spaces >> parseExpr
+    return $ DottedList head tail
+
+parseQuoted :: Parser LispVal
+parseQuoted = do
+    char '\''
+    x <- parseExpr
+    return $ List [Atom "quote", x]