started a testsuite

src/runtime/haskell/pgf2.cabal

@@ -25,5 +25,10 @@ library
 
   extra-libraries:     pgf
   cc-options:          -std=c99
-  default-language:    Haskell2010
   c-sources:           utils.c
+
+test-suite basic
+  type:       exitcode-stdio-1.0
+  main-is:    tests/basic.hs
+  default-language:    Haskell2010
+  build-depends: base, HUnit, pgf2

src/runtime/haskell/tests/basic.gf

@@ -0,0 +1,8 @@
+abstract basic = {
+
+cat N ;
+
+fun Z : N ;
+    S : N -> N ;
+
+}

src/runtime/haskell/tests/basic.hs

@@ -0,0 +1,6 @@
+import Test.HUnit
+import PGF2
+
+main = do
+  gr <- readPGF "tests/basic.pgf"
+  runTestTTAndExit (TestCase (assertEqual "abstract names" "basic" (abstractName gr)))