1 files changed, 7 insertions, 0 deletions
diff --git a/tests/selfRpc.ur b/tests/selfRpc.ur
new file mode 100644
index 00000000..a851008d
--- /dev/null
+++ b/tests/selfRpc.ur
@@ -0,0 +1,7 @@
+fun test () =
+    k <- source <xml/>;
+    return <xml><button onclick={r <- rpc (test ()); set k r}/></xml>
+
+fun main () : transaction page =
+    h <- test ();
+    return <xml><body>{h}</body></xml>