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=6d233d1b05176e40f634766537082d2a2ec65fd0;hp=0bba5413dc824b1e7bada829c0ea81b881c2d6d1;hpb=593a8f75d9dbc363234002dc500c346afbeba040;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