Added initial tests for grasp parser

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
+