diff options
| author | Bruce Hill <bitbucket@bruce-hill.com> | 2018-04-19 17:23:44 -0700 |
|---|---|---|
| committer | Bruce Hill <bitbucket@bruce-hill.com> | 2018-04-19 17:23:54 -0700 |
| commit | da33269c307c8a045e548cb1df2a3281a7a0f99e (patch) | |
| tree | 9451b857633b0869b4589a73107056815aa560c7 /tests/operators.nom | |
| parent | dcb380f1f6ec67c52364b1246546f1f6b2c168d3 (diff) | |
All tests passing (except object)
Diffstat (limited to 'tests/operators.nom')
| -rw-r--r-- | tests/operators.nom | 16 |
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." |
