msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added testcase for pattern matching on runtime variables

Browse Source
This commit is contained in:
krasimir
2009-07-22 09:53:39 +00:00
parent 4f21b57a86
commit 3473f0d274
3 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
testsuite/compiler/check/strMatch/strMatch.gf Normal file
View File

@@ -0,0 +1,5 @@
abstract strMatch = {
cat S ;
fun f : S -> S ;
z : S ;
}

2
testsuite/compiler/check/strMatch/strMatch.gfs Normal file
View File

@@ -0,0 +1,2 @@
i testsuite/compiler/check/strMatch/strMatch.gf
l f z

8
testsuite/compiler/check/strMatch/strMatchCnc.gf Normal file
View File

@@ -0,0 +1,8 @@
concrete strMatchCnc of strMatch = open Prelude in {
lincat S = {s : Str; b : Bool} ;
lin f x = case x.s of {
"" => {s="empty"; b=False} ;
_ => x
} ;
lin z = {s=""; b=False} ;
}