X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FMatching2.scl;h=9ac245f9fc6c612bfffef758b7c39d28c3932e0a;hb=3f5adda763f6281e9988277d067c1f71615e3da2;hp=c71b98bf8053de2fb03b89438f4d78c78f3c8ff0;hpb=0144ba232323a0e4f7ec8fe0681a150faafd7caf;p=simantics%2Fplatform.git

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Matching2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Matching2.scl
index c71b98bf8..9ac245f9f 100644
--- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Matching2.scl
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Matching2.scl
@@ -1,9 +1,9 @@
-
-main = match (5 :: Integer) with
-  (1 :: Integer) -> "wrong"
-  (2 :: Integer) -> "wrong"
-  (5 :: Integer) -> "right"
-  (6 :: Integer) -> "wrong"
-  _ -> "wrong"
---
+
+main = match (5 :: Integer) with
+  (1 :: Integer) -> "wrong"
+  (2 :: Integer) -> "wrong"
+  (5 :: Integer) -> "right"
+  (6 :: Integer) -> "wrong"
+  _ -> "wrong"
+--
 right
\ No newline at end of file