diff options
| -rw-r--r-- | Command-test.hs | 23 |
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] |