From 5b41c32b3fb60944fd5d342f7f6ee4413510b9f5 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 6 Nov 2008 15:52:13 -0500
Subject: Ensql'ing nullables

---
 tests/sql_option.ur | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'tests/sql_option.ur')

diff --git a/tests/sql_option.ur b/tests/sql_option.ur
index 257f8c55..0676c907 100644
--- a/tests/sql_option.ur
+++ b/tests/sql_option.ur
@@ -4,9 +4,13 @@ fun addNull () =
     dml (INSERT INTO t (O) VALUES (NULL));
     return <xml>Done</xml>
 
-(*fun add42 () =
-    dml (INSERT INTO t (O) VALUES (42));
-    return <xml>Done</xml>*)
+fun add3 () =
+    dml (INSERT INTO t (O) VALUES ({Some 3}));
+    return <xml>Done</xml>
+
+fun addN r =
+    dml (INSERT INTO t (O) VALUES ({Some (readError r.N)}));
+    return <xml>Done</xml>
 
 fun main () : transaction page =
     xml <- queryX (SELECT * FROM t)
@@ -17,6 +21,8 @@ fun main () : transaction page =
       {xml}
 
       <a link={addNull ()}>Add a null</a><br/>
+      <a link={add3 ()}>Add a 3</a><br/>
+      <form>
+        Add <textbox{#N}/> <submit action={addN}/>
+      </form>
     </body></xml>
-
-(*      <a link={add42 ()}>Add a 42</a><br/>*)
-- 
cgit v1.2.3