summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-06 15:52:13 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-06 15:52:13 -0500
commit49f721d39e46ab0635cc2e9a5ed2a66944586640 (patch)
tree41ee93be96f6a864b32ea4dc473be7a2c8414be2 /tests
parent0a10b5b7d2bbdcbfec723176b2a31d6b4c6d34d1 (diff)
Ensql'ing nullables
Diffstat (limited to 'tests')
-rw-r--r--tests/sql_option.ur16
-rw-r--r--tests/sql_option.urs1
2 files changed, 12 insertions, 5 deletions
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/>*)
diff --git a/tests/sql_option.urs b/tests/sql_option.urs
new file mode 100644
index 00000000..6ac44e0b
--- /dev/null
+++ b/tests/sql_option.urs
@@ -0,0 +1 @@
+val main : unit -> transaction page