From 407b4bea9c6a843d37efb2aba762b44f6fccd36b Mon Sep 17 00:00:00 2001 From: bringert Date: Sat, 24 Mar 2007 15:34:33 +0000 Subject: More srg test cases. --- test/srg/srg0001/srg0001.gf | 4 ++++ test/srg/srg0001/test.gf | 4 ---- test/srg/srg0002/empty.gf | 13 ------------- test/srg/srg0002/srg0002.gf | 9 +++++++++ test/srg/srg0005/srg0005.gf | 13 +++++++++++++ 5 files changed, 26 insertions(+), 17 deletions(-) create mode 100644 test/srg/srg0001/srg0001.gf delete mode 100644 test/srg/srg0001/test.gf delete mode 100644 test/srg/srg0002/empty.gf create mode 100644 test/srg/srg0002/srg0002.gf create mode 100644 test/srg/srg0005/srg0005.gf (limited to 'test') diff --git a/test/srg/srg0001/srg0001.gf b/test/srg/srg0001/srg0001.gf new file mode 100644 index 000000000..6671918ec --- /dev/null +++ b/test/srg/srg0001/srg0001.gf @@ -0,0 +1,4 @@ +cat S; +fun f : S; + +lin f = { s = variants {"a"; "b"} ++ variants {"c"; "d"} ++ variants {"e"; "f"} ++ variants { "g";"h";} } ; \ No newline at end of file diff --git a/test/srg/srg0001/test.gf b/test/srg/srg0001/test.gf deleted file mode 100644 index 6671918ec..000000000 --- a/test/srg/srg0001/test.gf +++ /dev/null @@ -1,4 +0,0 @@ -cat S; -fun f : S; - -lin f = { s = variants {"a"; "b"} ++ variants {"c"; "d"} ++ variants {"e"; "f"} ++ variants { "g";"h";} } ; \ No newline at end of file diff --git a/test/srg/srg0002/empty.gf b/test/srg/srg0002/empty.gf deleted file mode 100644 index 19a9701ca..000000000 --- a/test/srg/srg0002/empty.gf +++ /dev/null @@ -1,13 +0,0 @@ -cat S; X; E; - -fun s : S ; -fun es : E -> S -> S ; -fun sx : S -> X -> S ; -fun x : X ; -fun e : E ; - -lin s = { s = "s" } ; -lin es e s = { s = e.s ++ s.s } ; -lin sx s x = { s = s.s ++ x.s } ; -lin x = { s = "x" } ; -lin e = { s = "e" } ; diff --git a/test/srg/srg0002/srg0002.gf b/test/srg/srg0002/srg0002.gf new file mode 100644 index 000000000..fc87b893f --- /dev/null +++ b/test/srg/srg0002/srg0002.gf @@ -0,0 +1,9 @@ +cat S; E; + +fun s : S ; +fun es : E -> S -> S ; +fun e : E ; + +lin s = { s = "s" } ; +lin es e s = { s = e.s ++ s.s } ; +lin e = { s = [] } ; diff --git a/test/srg/srg0005/srg0005.gf b/test/srg/srg0005/srg0005.gf new file mode 100644 index 000000000..19a9701ca --- /dev/null +++ b/test/srg/srg0005/srg0005.gf @@ -0,0 +1,13 @@ +cat S; X; E; + +fun s : S ; +fun es : E -> S -> S ; +fun sx : S -> X -> S ; +fun x : X ; +fun e : E ; + +lin s = { s = "s" } ; +lin es e s = { s = e.s ++ s.s } ; +lin sx s x = { s = s.s ++ x.s } ; +lin x = { s = "x" } ; +lin e = { s = "e" } ; -- cgit v1.2.3