summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/localfun.ur191
1 files changed, 191 insertions, 0 deletions
diff --git a/tests/localfun.ur b/tests/localfun.ur
new file mode 100644
index 00000000..1539abb0
--- /dev/null
+++ b/tests/localfun.ur
@@ -0,0 +1,191 @@
+fun boom s =
+ let
+ val bonk =
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s
+
+ val boonk = fn () =>
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s
+
+ fun booonk () =
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s;
+ debug s
+ in
+ bonk; bonk; boonk (); boonk (); booonk (); booonk ()
+ end
+
+fun main () : transaction page =
+ boom "test";
+ return <xml/>