summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-09-07 09:06:13 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-09-07 09:06:13 -0400
commitea36554e005d1be57bede319562061e00c8a63c8 (patch)
tree301967018e16a7c4e7c27b64e5e4b08f288eba7f /tests
parent2abed5bc95fa69a49d955e0b115d0db874f53a3a (diff)
'tryDml' works with Postgres
Diffstat (limited to 'tests')
-rw-r--r--tests/tryDml.ur6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/tryDml.ur b/tests/tryDml.ur
index bfe98cdb..942cc1cb 100644
--- a/tests/tryDml.ur
+++ b/tests/tryDml.ur
@@ -5,8 +5,10 @@ fun doStuff () =
dml (INSERT INTO t (Id) VALUES (0));
o1 <- tryDml (INSERT INTO t (Id) VALUES (0));
dml (INSERT INTO t (Id) VALUES (1));
- o2 <- tryDml (INSERT INTO t (Id) VALUES (1));
- return <xml>{[o1]}; {[o2]}</xml>
+ o2 <- tryDml (INSERT INTO t (Id) VALUES (2));
+ dml (INSERT INTO t (Id) VALUES (3));
+ o3 <- tryDml (INSERT INTO t (Id) VALUES (3));
+ return <xml>{[o1]}; {[o2]}; {[o3]}</xml>
fun main () = return <xml><body>
<form> <submit action={doStuff}/> </form>