diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-08-03 12:39:04 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-08-03 12:39:04 -0400 |
| commit | b67de18776ec203874a5c9690d61aaa6c74829ca (patch) | |
| tree | 4eb88399853e78a069ac98f8a70f8658184b801f /tests | |
| parent | b22ba95be38613a4941ff0c074c3447b8522bb83 (diff) | |
Back out last change and pursue a different fix, based on explicitly aborting script execution at times when we don't expect scripts to run
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/babySpawn.ur | 3 | ||||
| -rw-r--r-- | tests/dynTable.ur | 8 |
2 files changed, 7 insertions, 4 deletions
diff --git a/tests/babySpawn.ur b/tests/babySpawn.ur new file mode 100644 index 00000000..d43e739f --- /dev/null +++ b/tests/babySpawn.ur @@ -0,0 +1,3 @@ +fun main () : transaction page = return <xml><body> + <button onclick={fn _ => spawn (alert "Hi")}/> +</body></xml> diff --git a/tests/dynTable.ur b/tests/dynTable.ur index 7fe295c6..d73dc52c 100644 --- a/tests/dynTable.ur +++ b/tests/dynTable.ur @@ -8,14 +8,14 @@ fun main () : transaction page = <tr> <td>Hi</td> </tr> </table> - <button onclick={v <- get n; - set n (v + 1); - set s <xml><tr> <td>Whoa!({[v]})</td> </tr></xml>}/> + <button onclick={fn _ => v <- get n; + set n (v + 1); + set s <xml><tr> <td>Whoa!({[v]})</td> </tr></xml>}/> <table> <tr> <dyn signal={signal s1}/> </tr> <tr> <td>Hi!</td> </tr> </table> - <button onclick={set s1 <xml><td>Whoa!</td></xml>}/> + <button onclick={fn _ => set s1 <xml><td>Whoa!</td></xml>}/> </body></xml> |