one more test

2021-09-30 05:18:02 +02:00
parent 0229329d7c
commit 0fa739e6e3
2 changed files with 5 additions and 0 deletions
--- a/testsuite/compiler/compute/string_matching.gfs
+++ b/testsuite/compiler/compute/string_matching.gfs
@@ -26,3 +26,4 @@ cc <case "xybbbbb" of {x + "b"* => x; _ => "?"} : Str>
 cc <case "xyababbbab" of {x + #ab_patt* => x; _ => "?"} : Str>
 cc test "abcd"
 cc test "xyz"
+cc <\x -> case x of {"q1" => Q1; _ => Q2} : Str -> Q>