From 61a066e4521ced56344f0f554584f5cf92dd68ea Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 6 Apr 2010 11:07:19 -0400
Subject: Parsing float and string SQL literals

---
 tests/policy.ur | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tests/policy.ur')

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
-- 
cgit v1.2.3