Mercurial > urweb

diff tests/policy.ur @ 1209:775357041e48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parsing float and string SQL literals
author Adam Chlipala <adamc@hcoop.net>
date Tue, 06 Apr 2010 11:07:19 -0400
parents ae3036773768
children c5bd970e77a5
line wrap: on
line diff
--- a/tests/policy.ur	Tue Apr 06 10:39:15 2010 -0400
+++ b/tests/policy.ur	Tue Apr 06 11:07:19 2010 -0400
@@ -35,7 +35,9 @@
 
 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