diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
| commit | f39537f5df937039b1487fef4095047f950c316f (patch) | |
| tree | 7853299e0060cd6c6eea28a26aa4ee33b1b93c21 /tests | |
| parent | 2c0738bd52259d4d02045fa2d5cb74f5576b71dc (diff) | |
Roll back WHERE checking
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/equalKnown.ur | 24 | ||||
| -rw-r--r-- | tests/equalKnown.urp | 1 | ||||
| -rw-r--r-- | tests/equalKnown.urs | 1 |
3 files changed, 0 insertions, 26 deletions
diff --git a/tests/equalKnown.ur b/tests/equalKnown.ur deleted file mode 100644 index 4af32490..00000000 --- a/tests/equalKnown.ur +++ /dev/null @@ -1,24 +0,0 @@ -type fruit = int -table fruit : { Id : fruit, Nam : string, Weight : float, Secret : string } - PRIMARY KEY Id, - CONSTRAINT Nam UNIQUE Nam - -policy sendClient (SELECT fruit.Id, fruit.Nam - FROM fruit) - -policy sendClient (SELECT fruit.Weight - FROM fruit - WHERE known(fruit.Secret)) - -policy equalKnown[#Secret] fruit - -fun main () = - x1 <- queryX (SELECT fruit.Id, fruit.Nam, fruit.Weight - FROM fruit - WHERE fruit.Nam = "apple" - AND fruit.Secret = "tasty") - (fn x => <xml><li>{[x.Fruit.Id]}: {[x.Fruit.Nam]}, {[x.Fruit.Weight]}</li></xml>); - - return <xml><body> - <ul>{x1}</ul> - </body></xml> diff --git a/tests/equalKnown.urp b/tests/equalKnown.urp deleted file mode 100644 index 380321fd..00000000 --- a/tests/equalKnown.urp +++ /dev/null @@ -1 +0,0 @@ -equalKnown diff --git a/tests/equalKnown.urs b/tests/equalKnown.urs deleted file mode 100644 index 6ac44e0b..00000000 --- a/tests/equalKnown.urs +++ /dev/null @@ -1 +0,0 @@ -val main : unit -> transaction page |