X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FStringInterpolation2.scl;h=e6ad8e114f28ffb26d1a4c171c5948d07f6050d1;hp=9d219430b9520594f56ee97327d09a09bbeaf009;hb=593a8f75d9dbc363234002dc500c346afbeba040;hpb=dcca7344e1da6f975859fd79fbc6cead7d363042

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/StringInterpolation2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/StringInterpolation2.scl
index 9d219430b..e6ad8e114 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/StringInterpolation2.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/StringInterpolation2.scl
@@ -1,6 +1,9 @@
-stringSum :: String -> Integer
-stringSum "(\(a),\(b),\(c))" = a + b + c
+import "Prelude"
 
-main = stringSum "(1,2,3)"
+main = match "abc123def" with
+      "abc\(x)fed" -> "X\(x)"
+      "cba\(x)def" -> "Y\(x)"
+      "abc\(x)def" -> "Z\(x)"
+      x            -> "W\(x)"
 --
-6
\ No newline at end of file
+Z123
\ No newline at end of file