1 files changed, 21 insertions, 0 deletions
diff --git a/tests/dupTag.ur b/tests/dupTag.ur
new file mode 100644
index 00000000..cee35df1
--- /dev/null
+++ b/tests/dupTag.ur
@@ -0,0 +1,21 @@
+structure S = struct
+  fun one () = 
+    let
+      fun save r = return <xml/>
+    in
+      return <xml><body><form><submit action={save}/></form></body></xml>
+    end
+  fun two () =
+    let
+      fun save r = return <xml/>
+    in
+      return <xml><body><form><submit action={save}/></form></body></xml>
+    end
+end
+
+fun main () : transaction page = return <xml>
+    <body>
+      <a link={S.one()}>one</a>
+      <a link={S.two()}>two</a>  
+    </body>
+  </xml>