diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-12-17 12:01:31 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-12-17 12:01:31 -0500 |
| commit | 566143a9c881c9e506c79af3f3cc39abebc37d8f (patch) | |
| tree | 9979ef0b3677541c9738b8545ab89d958248daf2 /tests | |
| parent | 7577d3e972e5050af4752571a584a5f107505ec8 (diff) | |
SQL lower() and upper() functions
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 |