aboutsummaryrefslogtreecommitdiff
path: root/tests/operators.nom
diff options
context:
space:
mode:
authorBruce Hill <bitbucket@bruce-hill.com>2018-04-19 17:23:44 -0700
committerBruce Hill <bitbucket@bruce-hill.com>2018-04-19 17:23:54 -0700
commitda33269c307c8a045e548cb1df2a3281a7a0f99e (patch)
tree9451b857633b0869b4589a73107056815aa560c7 /tests/operators.nom
parentdcb380f1f6ec67c52364b1246546f1f6b2c168d3 (diff)
All tests passing (except object)
Diffstat (limited to 'tests/operators.nom')
-rw-r--r--tests/operators.nom16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/operators.nom b/tests/operators.nom
index 1a138cb..40c503f 100644
--- a/tests/operators.nom
+++ b/tests/operators.nom
@@ -17,23 +17,23 @@ assume ((%y = 10) and (%x = 20)) or barf "swapping vars failed."
assume ({} is {}) or barf "Equality check failed."
assume (({}'s id) is not ({}'s id)) or barf "Identity check failed."
-<-{%x:"outer",%y:"outer"}
+<-{%foozle:"outer",%y:"outer"}
action [set global x local y]
- export %x <- "inner"
+ export %foozle <- "inner"
%y <- "inner"
set global x local y
-assume ((%x = "inner") and (%y = "outer")) or barf "export failed."
+assume ((%foozle = "inner") and (%y = "outer")) or barf "export failed."
-<-{%x:"outer",%y:"outer"}
+<-{%foozle:"outer",%y:"outer"}
action [set global x local y]
- exporting [%x]
- %x <- "inner"
+ exporting [%foozle]
+ %foozle <- "inner"
%y <- "inner"
set global x local y
-assume ((%x = "inner") and (%y = "outer")) or barf "export failed."
+assume ((%foozle = "inner") and (%y = "outer")) or barf "exporting failed."
<-{%x:1,%y:2}
-with [%z, %x<-999]
+with {%z:nil, %x:999}
%z <- 999
assume (%z = 999) or barf "'with' failed."
assume (%x = 999) or barf "'with' assignment failed."