summaryrefslogtreecommitdiff
path: root/test/mono/set.sail
diff options
context:
space:
mode:
authorBrian Campbell2018-02-22 18:43:05 +0000
committerBrian Campbell2018-02-22 18:43:05 +0000
commitd08f0ac0ce1cfc79d6c53fb4a15575a178872c16 (patch)
treede2816f6b19df8027548865caf37b7b7c90154b5 /test/mono/set.sail
parent2c5d36351779c6c85b65f4896148060aeb7faa7c (diff)
Curtail at more false assertions
(plus some adjustments for the test case)
Diffstat (limited to 'test/mono/set.sail')
-rw-r--r--test/mono/set.sail13
1 files changed, 7 insertions, 6 deletions
diff --git a/test/mono/set.sail b/test/mono/set.sail
index 203f2219..b7cf4862 100644
--- a/test/mono/set.sail
+++ b/test/mono/set.sail
@@ -35,10 +35,11 @@ function depends(n) = {
extz(x)
}
-val run : unit -> bool
+val run : unit -> unit effect {escape}
-function run () =
- parametric(32) == 0x0000000080000000 &
- parametric(64) == 0xffffffff80000000 &
- depends(16) == 0x0000000080000000 &
- depends(32) == 0xffffffff80000000
+function run () = {
+ assert(parametric(32) == 0x0000000080000000);
+ assert(parametric(64) == 0xffffffff80000000);
+ assert(depends(16) == 0x0000000080000000);
+ assert(depends(32) == 0xffffffff80000000);
+}