4 files changed, 37 insertions, 0 deletions
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))
+