From 4e2e2b2535c3edc0711acc31b9e6231828b1e809 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 20 May 2009 16:38:19 +0000
Subject: [PATCH] testcase for parameters with nested records

---
 testsuite/compiler/params/params.gf    |  7 +++++++
 testsuite/compiler/params/params.gfs   |  1 +
 testsuite/compiler/params/paramsCnc.gf | 20 ++++++++++++++++++++
 3 files changed, 28 insertions(+)
 create mode 100644 testsuite/compiler/params/params.gf
 create mode 100644 testsuite/compiler/params/params.gfs
 create mode 100644 testsuite/compiler/params/paramsCnc.gf

diff --git a/testsuite/compiler/params/params.gf b/testsuite/compiler/params/params.gf
new file mode 100644
index 000000000..0ca96a00a
--- /dev/null
+++ b/testsuite/compiler/params/params.gf
@@ -0,0 +1,7 @@
+abstract params = {
+
+cat S; NP ;
+
+fun test : NP -> S ;
+
+}
\ No newline at end of file
diff --git a/testsuite/compiler/params/params.gfs b/testsuite/compiler/params/params.gfs
new file mode 100644
index 000000000..234aa4fbf
--- /dev/null
+++ b/testsuite/compiler/params/params.gfs
@@ -0,0 +1 @@
+i testsuite\compiler\params\paramsCnc.gf
diff --git a/testsuite/compiler/params/paramsCnc.gf b/testsuite/compiler/params/paramsCnc.gf
new file mode 100644
index 000000000..1b8b7ac16
--- /dev/null
+++ b/testsuite/compiler/params/paramsCnc.gf
@@ -0,0 +1,20 @@
+concrete paramsCnc of params = {
+
+param
+  Number = Sg | Pl ;
+  Person = P1 | P2 | P3 ;
+
+oper
+  Agr = {n : Number; p : Person} ;
+
+param
+  Case = Nom | Acc | Abess Agr ;
+
+lincat
+  S = {s : Str} ;
+  NP = {s : Case => Str} ;
+
+lin
+  test np = {s = np.s ! Abess {n=Sg;p=P3}} ;
+
+}
\ No newline at end of file