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=cccc17472c9d365e76ff76ba9cf9751220c9f52c;hp=9d219430b9520594f56ee97327d09a09bbeaf009;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=1956b6ed85e1df65c4df58e6cb0ac6aa296e6939

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..cccc17472 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
-
-main = stringSum "(1,2,3)"
---
-6
\ No newline at end of file
+import "Prelude"
+
+main = match "abc123def" with
+      "abc\(x)fed" -> "X\(x)"
+      "cba\(x)def" -> "Y\(x)"
+      "abc\(x)def" -> "Z\(x)"
+      x            -> "W\(x)"
+--
+Z123
\ No newline at end of file