diff options
Diffstat (limited to 'tests/updateErr.ur')
-rw-r--r-- | tests/updateErr.ur | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/updateErr.ur b/tests/updateErr.ur new file mode 100644 index 00000000..345e3aa8 --- /dev/null +++ b/tests/updateErr.ur @@ -0,0 +1,17 @@ +fun main () : transaction page = + s <- source ""; + b <- Buffer.create; + txt <- source ""; + + return <xml><body onload={onError (fn xml => Buffer.write b (show xml)); + onFail (fn s => alert ("FAIL! " ^ s))}> + <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/><br/> + <dyn signal={s <- signal s; if s = "" then return <xml>Init</xml> else error <xml>Crapky</xml>}/><br/> + <dyn signal={s <- signal s; return <xml>"{[s]}"</xml>}/><br/> + + <ctextbox source={txt}/> <button onclick={s' <- get txt; set s s'; set txt ""}/> + + <hr/> + + <dyn signal={Buffer.render b}/> + </body></xml> |