Changed Command-test.hs to Test.hs

1 files changed, 0 insertions, 23 deletions

diff --git a/Command-test.hs b/Command-test.hs
deleted file mode 100644
index bf2b6fc..0000000
--- a/Command-test.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-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]