summaryrefslogtreecommitdiff
path: root/test.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test.hs')
-rw-r--r--test.hs19
1 files changed, 12 insertions, 7 deletions
diff --git a/test.hs b/test.hs
index a484e62..63e10ec 100644
--- a/test.hs
+++ b/test.hs
@@ -1,30 +1,35 @@
import Test.HUnit
+import Text.Parsec.Error
import Thue.Parser
import Fractran.Parser
-fractranParser1 = TestCase (assertEqual ""
+instance Eq Text.Parsec.Error.ParseError
+
+
+
+fractranParser0 = TestCase (assertEqual ""
(Right (FractranProgram [] 2))
(parseFractran "2"))
-fractranParser2 = TestCase (assertEqual ""
+fractranParser1 = TestCase (assertEqual ""
(Right (FractranProgram [] 2))
(parseFractran "2\n"))
-fractranParser3 = TestCase (assertEqual ""
+fractranParser2 = TestCase (assertEqual ""
(Right (FractranProgram [] 2))
(parseFractran "\n2"))
-fractranParser4 = TestCase (assertEqual ""
- (Left x)
- (parseFractran "2/3"))
+--fractranParser3 = TestCase (assertEqual ""
+-- (Left _)
+-- (parseFractran "2/3"))
main = do
putStrLn "Fractran Parser"
- runTestTT $ TestList [fractranParser1, fractranParser2, fractranParser3, fractranParser4]
+ runTestTT $ TestList [fractranParser0, fractranParser1, fractranParser2]