1 files changed, 15 insertions, 0 deletions
diff --git a/tests/tail.ur b/tests/tail.ur
new file mode 100644
index 00000000..259b5f34
--- /dev/null
+++ b/tests/tail.ur
@@ -0,0 +1,15 @@
+fun one () = return 1
+
+fun addEm n =
+    if n = 0 then
+        return 0
+    else
+        n1 <- rpc (one ());
+        n2 <- addEm (n - 1);
+        return (n1 + n2)
+
+fun main () =
+    s <- source 0;
+    return <xml><body onload={n <- addEm 3; set s n}>
+      <dyn signal={n <- signal s; return (txt n)}/>
+    </body></xml>