summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-07-27 14:04:09 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-07-27 14:04:09 -0400
commitf39537f5df937039b1487fef4095047f950c316f (patch)
tree7853299e0060cd6c6eea28a26aa4ee33b1b93c21 /tests
parent2c0738bd52259d4d02045fa2d5cb74f5576b71dc (diff)
Roll back WHERE checking
Diffstat (limited to 'tests')
-rw-r--r--tests/equalKnown.ur24
-rw-r--r--tests/equalKnown.urp1
-rw-r--r--tests/equalKnown.urs1
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