Fixing a bug in CASE.

2022-11-08 19:42:44 -08:00
parent 23ec00d7cd
commit 4751b31c40
2 changed files with 20 additions and 3 deletions
--- a/common/case_tests.fs
+++ b/common/case_tests.fs
@ -46,3 +46,20 @@ e: test-case-dup
  3 foo
  out: other: 3 
 ;e
+
+e: test-case-string
+  : foo
+    case
+      1 of s" one" endof
+      2 of s" two" endof
+      1 of s" onemore" endof
+      >r s" other" r>
+    endcase
+  ;
+  1 foo type cr
+  out: one
+  2 foo type cr
+  out: two
+  3 foo type cr
+  out: other
+;e