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;fp=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FMatching2.scl;h=9ac245f9fc6c612bfffef758b7c39d28c3932e0a;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=c71b98bf8053de2fb03b89438f4d78c78f3c8ff0;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;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