First few test cases

1 files changed, 23 insertions, 0 deletions

diff --git a/Command-test.hs b/Command-test.hs
new file mode 100644
index 0000000..bf2b6fc
--- /dev/null
+++ b/Command-test.hs
@@ -0,0 +1,23 @@
+import Test.HUnit
+import Command
+import TypeVar
+
+
+nametest1 = TestCase (assertEqual "for (name \"abc\")" 
+	                              (Just (Name [] "abc"))
+	                              (name "\"abc\""))
+
+nametest2 = TestCase (assertEqual "for (name \"first.second.third\")" 
+	                              (Just (Name ["first","second"] "third"))
+	                              (name "\"first.second.third\""))
+
+nametest3 = TestCase (assertEqual "for (name \"firs\\t.se\\cond.\\t\\h\\ird\")"
+	                              (Just (Name ["first","second"] "third"))
+	                              (name "\"firs\\t.se\\cond.\\t\\h\\ird\""))
+
+nametest4 = TestCase (assertEqual "for (name abc)"
+	                              Nothing
+	                              (name "abc"))
+
+main =
+	runTestTT $ TestList [nametest1,nametest2,nametest3,nametest4]