summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2012-08-03 12:39:04 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2012-08-03 12:39:04 -0400
commitafdf9924539e1df0a515bb5760fa76ca014395ff (patch)
tree4eb88399853e78a069ac98f8a70f8658184b801f /tests
parente64a27b444ef683356d91f4391f8f8f190053eeb (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.ur3
-rw-r--r--tests/dynTable.ur8
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>