summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-11-14 09:15:10 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2011-11-14 09:15:10 -0500
commit82e0f83b9af579778f1a81daeedc8affaa81ac46 (patch)
treebfa2b4548397ac6717436e5b2870679cabb52945 /tests
parent81b9a30041b3a657a8e81d6c4adf022f640a936d (diff)
Better error messages about server-side use of client-side functions
Diffstat (limited to 'tests')
-rw-r--r--tests/sidecheck.ur6
-rw-r--r--tests/sidecheckGood.ur6
2 files changed, 12 insertions, 0 deletions
diff --git a/tests/sidecheck.ur b/tests/sidecheck.ur
new file mode 100644
index 00000000..e21a0041
--- /dev/null
+++ b/tests/sidecheck.ur
@@ -0,0 +1,6 @@
+fun main () : transaction page =
+ s <- source 0;
+ n <- get s;
+ set s (n + 1);
+ n' <- get s;
+ return <xml>{[n']}</xml>
diff --git a/tests/sidecheckGood.ur b/tests/sidecheckGood.ur
new file mode 100644
index 00000000..01a8c3d1
--- /dev/null
+++ b/tests/sidecheckGood.ur
@@ -0,0 +1,6 @@
+fun main () : transaction page =
+ s <- source 0;
+ set s 42;
+ return <xml><body>
+ <dyn signal={n <- signal s; return (txt n)}/>
+ </body></xml>