hw3: init

hw3/test.hs

@@ -0,0 +1,17 @@
+import WhileInterp
+
+test f = do
+  putStrLn $ "***Testing " ++ f
+  --showParsedExp f
+  runFile f
+  putStrLn ""
+
+main :: IO ()
+main = do
+  test "abs.imp"
+  --test "extra.imp"
+  test "fact.imp"
+  test "times.imp"
+  test "test.imp"
+  test "error.imp"
+