diff options
| -rw-r--r-- | testsuite/check/lins/lins.gf | 9 | ||||
| -rw-r--r-- | testsuite/check/lins/lins.gfs | 2 | ||||
| -rw-r--r-- | testsuite/check/lins/lins.gfs.gold | 12 | ||||
| -rw-r--r-- | testsuite/check/lins/linsCnc.gf | 11 |
4 files changed, 34 insertions, 0 deletions
diff --git a/testsuite/check/lins/lins.gf b/testsuite/check/lins/lins.gf new file mode 100644 index 000000000..9da3058d9 --- /dev/null +++ b/testsuite/check/lins/lins.gf @@ -0,0 +1,9 @@ +abstract lins = {
+
+cat Nat ;
+cat C Nat ;
+
+fun zero : Nat ;
+ test : C zero ;
+
+}
\ No newline at end of file diff --git a/testsuite/check/lins/lins.gfs b/testsuite/check/lins/lins.gfs new file mode 100644 index 000000000..acc22574b --- /dev/null +++ b/testsuite/check/lins/lins.gfs @@ -0,0 +1,2 @@ +i -erasing=on testsuite\check\lins\linsCnc.gf
+pg -printer=pmcfg_pretty
diff --git a/testsuite/check/lins/lins.gfs.gold b/testsuite/check/lins/lins.gfs.gold new file mode 100644 index 000000000..31f6d1f64 --- /dev/null +++ b/testsuite/check/lins/lins.gfs.gold @@ -0,0 +1,12 @@ +language linsCnc
+productions
+ C1 -> F0[]
+functions
+ F0 := () [zero]
+sequences
+startcats
+ C := [C0]
+ Float := [Float]
+ Int := [Int]
+ Nat := [C1]
+ String := [String]
diff --git a/testsuite/check/lins/linsCnc.gf b/testsuite/check/lins/linsCnc.gf new file mode 100644 index 000000000..3d430f5a0 --- /dev/null +++ b/testsuite/check/lins/linsCnc.gf @@ -0,0 +1,11 @@ +concrete linsCnc of lins = {
+
+lincat Nat = {} ;
+
+-- we expect warnings because the lines bellow are commented out
+-- we don't expect warning for zero because Nat = {}
+
+-- lincat C = {s : Str} ;
+-- lin test = {s = "test"} ;
+
+}
\ No newline at end of file |
