From da33269c307c8a045e548cb1df2a3281a7a0f99e Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Thu, 19 Apr 2018 17:23:44 -0700 Subject: All tests passing (except object) --- tests/operators.nom | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'tests/operators.nom') 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." -- cgit v1.2.3