Proper error message, when pattern compilation fails

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / CHR4.scl

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR4.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR4.scl
new file mode 100644 (file)
index 0000000..a2abc6e
--- /dev/null
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/CHR4.scl
@@ -0,0 +1,6 @@
+main = ()
+  where
+    when ?x <- ?y
+    then True
+--
+3:10-3:18: Cannot solve the query.