From cf761fbfd28af10fb6e11bdf583f2821abecfe44 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 6 Nov 2008 10:29:55 -0500
Subject: Cookies through elaborate

---
 tests/cookie.ur | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/cookie.ur

(limited to 'tests/cookie.ur')

diff --git a/tests/cookie.ur b/tests/cookie.ur
new file mode 100644
index 00000000..b2bca580
--- /dev/null
+++ b/tests/cookie.ur
@@ -0,0 +1,9 @@
+cookie c : string
+
+fun main () : transaction page =
+    setCookie c "Hi";
+    so <- getCookie c;
+    case so of
+        None => return <xml>No cookie</xml>
+      | Some s => return <xml>Cookie: {[s]}</xml>
+
-- 
cgit v1.2.3