diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/lower.ur | 10 | ||||
-rw-r--r-- | tests/lower.urp | 4 |
2 files changed, 14 insertions, 0 deletions
diff --git a/tests/lower.ur b/tests/lower.ur new file mode 100644 index 00000000..21e1f1f6 --- /dev/null +++ b/tests/lower.ur @@ -0,0 +1,10 @@ +table lower : { A : string } + +fun main () : transaction page = + all <- queryX1 (SELECT * + FROM lower + WHERE lower(lower.A) LIKE '%foo') + (fn r => <xml>{[r.A]}<br/></xml>); + return <xml><body> + {all} + </body></xml> diff --git a/tests/lower.urp b/tests/lower.urp new file mode 100644 index 00000000..6abf57aa --- /dev/null +++ b/tests/lower.urp @@ -0,0 +1,4 @@ +database dbname=test +sql lower.sql + +lower |