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%2FCHR3.scl;h=1d8451439ee92b8b9d6cb680ffd92cbb67fa9ca2;hb=6573b29e111ea03c3fa88bf1565d47d0fc4faabd;hp=0bba5413dc824b1e7bada829c0ea81b881c2d6d1;hpb=ca40974f87c9db00eb77aaf1acc1e9937b37261b;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl index 0bba5413d..1d8451439 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR3.scl @@ -1,11 +1,10 @@ -import "Prelude" - -main = () - where - A ?x => print ?x - A ?x, not A (?x+1) => A (?x-1) - True => A 0 --- -() - - +import "Prelude" + +main = () + where + A ?x => print ?x + A ?x, not A (?x+1) => A (?x-1) + True => A 0 +-- +0 +() \ No newline at end of file