From 37d0200c7fd022d1d041a5a9bbe178cbfad3ea1e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 10 Jan 2011 10:34:09 +0000
Subject: [PATCH] added testsuite for the parser

---
 testsuite/runtime/parser/DummyNat.gf     |  8 ++++++++
 testsuite/runtime/parser/DummyNatCnc.gf  |  8 ++++++++
 testsuite/runtime/parser/parser.gfs      |  3 +++
 testsuite/runtime/parser/parser.gfs.gold | 18 ++++++++++++++++++
 4 files changed, 37 insertions(+)
 create mode 100644 testsuite/runtime/parser/DummyNat.gf
 create mode 100644 testsuite/runtime/parser/DummyNatCnc.gf
 create mode 100644 testsuite/runtime/parser/parser.gfs
 create mode 100644 testsuite/runtime/parser/parser.gfs.gold

diff --git a/testsuite/runtime/parser/DummyNat.gf b/testsuite/runtime/parser/DummyNat.gf
new file mode 100644
index 000000000..ecbc66358
--- /dev/null
+++ b/testsuite/runtime/parser/DummyNat.gf
@@ -0,0 +1,8 @@
+abstract DummyNat = {
+
+cat Nat ;
+fun zero : Nat ;
+    succ : Nat -> Nat ;
+    plus : Nat -> Nat -> Nat ;
+
+}
diff --git a/testsuite/runtime/parser/DummyNatCnc.gf b/testsuite/runtime/parser/DummyNatCnc.gf
new file mode 100644
index 000000000..209c7596f
--- /dev/null
+++ b/testsuite/runtime/parser/DummyNatCnc.gf
@@ -0,0 +1,8 @@
+concrete DummyNatCnc of DummyNat = {
+
+lincat Nat = Str ;
+lin zero = "z" ;
+    succ n = n ;
+    plus m n = m ++ n ;
+
+}
diff --git a/testsuite/runtime/parser/parser.gfs b/testsuite/runtime/parser/parser.gfs
new file mode 100644
index 000000000..0766535f7
--- /dev/null
+++ b/testsuite/runtime/parser/parser.gfs
@@ -0,0 +1,3 @@
+i -src testsuite/runtime/parser/DummyNatCnc.gf
+p -cat=Nat -depth=3 "z"
+p -cat=Nat -depth=2 "z z"
diff --git a/testsuite/runtime/parser/parser.gfs.gold b/testsuite/runtime/parser/parser.gfs.gold
new file mode 100644
index 000000000..9ce215903
--- /dev/null
+++ b/testsuite/runtime/parser/parser.gfs.gold
@@ -0,0 +1,18 @@
+succ (succ (succ zero))
+succ (succ zero)
+succ zero
+zero
+
+plus (succ zero) (succ zero)
+plus (succ zero) zero
+plus zero (succ zero)
+plus zero zero
+succ (plus (succ zero) (succ zero))
+succ (plus (succ zero) zero)
+succ (plus zero (succ zero))
+succ (plus zero zero)
+succ (succ (plus (succ zero) (succ zero)))
+succ (succ (plus (succ zero) zero))
+succ (succ (plus zero (succ zero)))
+succ (succ (plus zero zero))
+