aboutsummaryrefslogtreecommitdiffhomepage
path: root/tests/policy.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-04-06 11:07:19 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-04-06 11:07:19 -0400
commit80e769bec359d261a15235f58c951ffdfdc2d0e8 (patch)
treeeb5229cc85480dfe8b7f967e453ecea3db193a0d /tests/policy.ur
parentf91d0356ca6a514852a1dd1332a204cddf8dd1aa (diff)
Parsing float and string SQL literals
Diffstat (limited to 'tests/policy.ur')
-rw-r--r--tests/policy.ur4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/policy.ur b/tests/policy.ur
index db89fbe5..6f2d2d5b 100644
--- a/tests/policy.ur
+++ b/tests/policy.ur
@@ -35,7 +35,9 @@ fun fname r =
fun main () =
x1 <- queryX (SELECT fruit.Id, fruit.Nam
- FROM fruit)
+ FROM fruit
+ WHERE fruit.Nam = "apple"
+ AND fruit.Weight = 1.23)
(fn x => <xml><li>{[x.Fruit.Id]}: {[x.Fruit.Nam]}</li></xml>);
x2 <- queryX (SELECT fruit.Nam, order.Qty