1 files changed, 17 insertions, 0 deletions
diff --git a/tests/a_case_of_the_splits.ur b/tests/a_case_of_the_splits.ur
new file mode 100644
index 00000000..2029729e
--- /dev/null
+++ b/tests/a_case_of_the_splits.ur
@@ -0,0 +1,17 @@
+fun newCounter () : transaction xbody =
+  x <- source 0;
+  return <xml>
+    <dyn signal={n <- signal x; return <xml>{[n]}</xml>}/>
+  </xml>
+
+fun main () : transaction page =
+  ls <- source ([] : list xbody);
+  return <xml>
+    <body>
+      <button value="Add" onclick={fn _ =>
+        l <- get ls;
+        c <- newCounter ();
+        set ls (c :: l)}/>
+      <dyn signal={l <- signal ls; return <xml>{[l]}</xml>}/>
+    </body>
+  </xml>