From e43dd849a122a59fa2c22278ddf9c9a09d1550bd Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 19 Nov 2011 10:43:57 -0500
Subject: COALESCE

---
 tests/coalesce.ur  | 6 ++++++
 tests/coalesce.urp | 4 ++++
 2 files changed, 10 insertions(+)
 create mode 100644 tests/coalesce.ur
 create mode 100644 tests/coalesce.urp

(limited to 'tests')

diff --git a/tests/coalesce.ur b/tests/coalesce.ur
new file mode 100644
index 00000000..5ee8cf19
--- /dev/null
+++ b/tests/coalesce.ur
@@ -0,0 +1,6 @@
+table t : { A : option int }
+
+fun main () : transaction page =
+    queryX (SELECT COALESCE(t.A, 13)
+            FROM t)
+    (fn r => <xml>{[r.1]},</xml>)
diff --git a/tests/coalesce.urp b/tests/coalesce.urp
new file mode 100644
index 00000000..7d7decee
--- /dev/null
+++ b/tests/coalesce.urp
@@ -0,0 +1,4 @@
+database dbname=test
+sql coalesce.sql
+
+coalesce
-- 
cgit v1.2.3