summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/dupTag.ur21
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>