From f8261525ddb9efe70eef21d3fc45003f431826e7 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 22 May 2012 09:48:02 +1000 Subject: First few test cases --- Command-test.hs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 Command-test.hs (limited to 'Command-test.hs') 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] -- cgit