summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2012-07-23 09:03:41 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2012-07-23 09:03:41 -0400
commit8a2b82151a52f3c2e99d60b76026b22b088b9e56 (patch)
tree4e519e4d4a0bd9a3e0c823866ff23c65992e4d03 /tests
parent0cb456bbab73abfd9c08af101d1dfe71cf2d41d4 (diff)
Disallow suspending operations in <active code={...}>
Diffstat (limited to 'tests')
-rw-r--r--tests/setActive.ur9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/setActive.ur b/tests/setActive.ur
new file mode 100644
index 00000000..e937c1d9
--- /dev/null
+++ b/tests/setActive.ur
@@ -0,0 +1,9 @@
+fun main () : transaction page =
+ i <- fresh;
+ x <- source <xml/>;
+ return <xml>
+ <body>
+ <dyn signal={signal x} />
+ <active code={set x <xml><ctextbox/><ctextbox id={i}/><ctextbox/><active code={giveFocus i; return <xml/>}/></xml>; return <xml/>}/>
+ </body>
+ </xml>