From 0fa739e6e37bf045903ec59c843c5be49efe4d4d Mon Sep 17 00:00:00 2001
From: krangelov <kr.angelov@gmail.com>
Date: Thu, 30 Sep 2021 05:18:02 +0200
Subject: [PATCH] one more test

---
 testsuite/compiler/compute/string_matching.gfs      | 1 +
 testsuite/compiler/compute/string_matching.gfs.gold | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/testsuite/compiler/compute/string_matching.gfs b/testsuite/compiler/compute/string_matching.gfs
index 72088c964..672e7b048 100644
--- 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>
diff --git a/testsuite/compiler/compute/string_matching.gfs.gold b/testsuite/compiler/compute/string_matching.gfs.gold
index c60c2ab0c..f20f91bd0 100644
--- a/testsuite/compiler/compute/string_matching.gfs.gold
+++ b/testsuite/compiler/compute/string_matching.gfs.gold
@@ -25,3 +25,7 @@ param_table.Q2
 "xy"
 param_table.Q1
 param_table.Q2
+\v0 -> case <v0 : Str> of {
+         "q1" => param_table.Q1;
+         _ => param_table.Q2
+       }