1 files changed, 12 insertions, 0 deletions
diff --git a/tests/naughty.ur b/tests/naughty.ur
new file mode 100644
index 00000000..14919f84
--- /dev/null
+++ b/tests/naughty.ur
@@ -0,0 +1,12 @@
+fun main () : transaction page =
+    if naughtyDebug "hello" = 0 then
+        return <xml><body></body></xml>
+    else
+        error <xml>Uhoh!</xml>
+
+(*fun main () : transaction page =
+    let
+        val a = naughtyDebug ""
+    in
+        return <xml><body></body></xml>
+    end*)