1 files changed, 20 insertions, 0 deletions
diff --git a/tests/goback.ur b/tests/goback.ur
new file mode 100644
index 00000000..ef61a817
--- /dev/null
+++ b/tests/goback.ur
@@ -0,0 +1,20 @@
+table channels : { Channel : channel {} }
+
+fun get () =
+    ch <- channel;
+    dml (INSERT INTO channels (Channel) VALUES ({[ch]}));
+    return <xml><body onload={recv ch}>
+      Hi.
+    </body></xml>
+
+fun post () =
+    ch <- channel;
+    dml (INSERT INTO channels (Channel) VALUES ({[ch]}));
+    return <xml><body onload={recv ch}>
+      Hi!
+    </body></xml>
+
+fun main () = return <xml><body>
+  <li><a link={get ()}>Get</a></li>
+  <li><form><submit action={post}/></form></li>
+</body></xml>