summaryrefslogtreecommitdiff
path: root/src/Grasp
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2014-05-01 02:15:24 +1000
committerJed Barber <jjbarber@y7mail.com>2014-05-01 02:15:24 +1000
commit1294b57dbbec16f2b9c1a07542a970f38e1b735d (patch)
tree44243c00b6dea5993cf147f5fc61536cd9746330 /src/Grasp
parent8025724edf1620fa9f3d529effa7a5736ac4470f (diff)
Added initial tests for grasp parser
Diffstat (limited to 'src/Grasp')
-rw-r--r--src/Grasp/Test.hs38
1 files changed, 38 insertions, 0 deletions
diff --git a/src/Grasp/Test.hs b/src/Grasp/Test.hs
new file mode 100644
index 0000000..ec45fb3
--- /dev/null
+++ b/src/Grasp/Test.hs
@@ -0,0 +1,38 @@
+module Grasp.Test (
+ parserTests,
+ tests
+ ) where
+
+
+import Test.HUnit
+import Text.Parsec.Error
+import Grasp.Parser
+
+
+instance Eq Text.Parsec.Error.ParseError
+
+
+
+
+isParseError :: Either a b -> Bool
+isParseError (Left _) = True
+isParseError (Right _) = False
+
+
+
+parser0 = TestCase (assertBool "" (isParseError (parseGrasp "")) )
+
+parser1 = TestCase (assertBool "" (isParseError (parseGrasp "digraph {")) )
+
+parser2 = TestCase (assertBool "" (isParseError (parseGrasp "digraph { }")) )
+
+
+
+parserTests :: Test
+parserTests = TestList [parser0, parser1, parser2]
+
+
+
+tests :: Test
+tests = parserTests
+