From 78ef2b4d5ba2bd9d4b2faa45cb71f62faea35209 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 29 May 2012 07:55:44 +1000 Subject: Changed Command-test.hs to Test.hs --- Command-test.hs | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 Command-test.hs 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] -- cgit