diff options
Diffstat (limited to 'tests/overflow.ur')
| -rw-r--r-- | tests/overflow.ur | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/overflow.ur b/tests/overflow.ur new file mode 100644 index 00000000..09edc5a3 --- /dev/null +++ b/tests/overflow.ur @@ -0,0 +1,8 @@ +fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1) + +fun doit {N = n} = return <xml><body>{[List.length (makeList (readError n))]}</body></xml> + +fun main () = + return <xml><body> + <form> <textbox{#N}/> <submit action={doit}/> </form> + </body></xml> |