diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-04-11 16:46:38 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-04-11 16:46:38 -0400 |
| commit | 6b5309bdfb7e5b9b4102d8d882284318ee1cef84 (patch) | |
| tree | ab00a86b3bb56cfe60755e26536437718159789f /tests/policy.ur | |
| parent | 854ebb04a9e437f8be28820eeb4402d81c71971d (diff) | |
Using multiple policies to check a written value
Diffstat (limited to 'tests/policy.ur')
| -rw-r--r-- | tests/policy.ur | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/policy.ur b/tests/policy.ur index 6d4e341e..69455cd7 100644 --- a/tests/policy.ur +++ b/tests/policy.ur @@ -9,7 +9,9 @@ table order : { Id : order, Fruit : fruit, Qty : int, Code : int } CONSTRAINT Fruit FOREIGN KEY Fruit REFERENCES fruit(Id) (* Everyone may knows IDs and names. *) -policy sendClient (SELECT fruit.Id, fruit.Nam +policy sendClient (SELECT fruit.Id + FROM fruit) +policy sendClient (SELECT fruit.Nam FROM fruit) (* The weight is sensitive information; you must know the secret. *) @@ -50,11 +52,18 @@ fun main () = AND order.Qty = 13) (fn x => <xml><li>{[x.Fruit.Nam]}: {[x.Order.Qty]}</li></xml>); + ro <- oneOrNoRows (SELECT fruit.Id, fruit.Nam + FROM fruit); + return <xml><body> <ul>{x1}</ul> <ul>{x2}</ul> + {case ro of + None => <xml>None</xml> + | Some _ => <xml>Some</xml>} + <form> Fruit name: <textbox{#Nam}/><br/> Secret: <textbox{#Secret}/><br/> |