diff options
author | Benjamin Barenblat <bbaren@mit.edu> | 2020-05-30 19:49:56 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@mit.edu> | 2020-05-30 19:49:56 -0400 |
commit | c2f1e1096f602b1cbd4531352f3e1ea6d656a186 (patch) | |
tree | ae102982878bb0c31bdfe07209e60bfc14030490 /tests/serializingXml.ur | |
parent | 095c2640aa2070ed4e2765875238d5e6e6673856 (diff) | |
parent | 5a0b639dfbd7db9d16c6995f72ba17152a1f362d (diff) |
Merge branch 'upstream' into dfsg_clean20200209+dfsgdfsg_clean
Diffstat (limited to 'tests/serializingXml.ur')
-rw-r--r-- | tests/serializingXml.ur | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/serializingXml.ur b/tests/serializingXml.ur new file mode 100644 index 00000000..34eb3436 --- /dev/null +++ b/tests/serializingXml.ur @@ -0,0 +1,14 @@ +fun alerts n = + if n <= 0 then + return () + else + (alert ("Alert #" ^ show n); + alerts (n - 1)) + +cookie uhoh : serialized xbody + +fun main () : transaction page = + setCookie uhoh {Value = serialize <xml><active code={alerts 3; return <xml>Yay!</xml>}/></xml>, + Expires = None, + Secure = False}; + return <xml></xml> |