summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2021-05-01 20:58:23 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2021-05-01 20:58:23 +0200
commit034153205de05ef2a4facf7aded9912ce8dfb6b5 (patch)
tree963eaad7baedcea998e6a41b62e3cedd7d8c6ba9 /data/unit-testing/ifelse.fate
parenta5ddb05e399929e778f501c864c894b32da3c354 (diff)
Suffixes imperative stuff with '!', adds ({set,list} ... ) shorthands.
Diffstat (limited to 'data/unit-testing/ifelse.fate')
-rw-r--r--data/unit-testing/ifelse.fate30
1 files changed, 15 insertions, 15 deletions
diff --git a/data/unit-testing/ifelse.fate b/data/unit-testing/ifelse.fate
index e06be4d..34bc4f0 100644
--- a/data/unit-testing/ifelse.fate
+++ b/data/unit-testing/ifelse.fate
@@ -2,50 +2,50 @@
(global string test_name)
-(set test_name ( IF ELSE ))
+(set! test_name ( IF ELSE ))
(if (false)
- (assert (false) [FAILED] (var test_name) Executing dead code 0.)
+ (assert! (false) [FAILED] (var test_name) Executing dead code 0.)
)
(global bool test)
-(set test (false))
+(set! test (false))
(ifelse (false)
- (assert (false) [FAILED] (var test_name) Executing dead code 1.)
- (set test (true))
+ (assert! (false) [FAILED] (var test_name) Executing dead code 1.)
+ (set! test (true))
)
-(assert test [FAILED] (var test_name) ignored valid branch 0.)
+(assert! test [FAILED] (var test_name) ignored valid branch 0.)
(if (false)
- (assert (false) [FAILED] (var test_name) Executing dead code 2.)
- (set test (false))
+ (assert! (false) [FAILED] (var test_name) Executing dead code 2.)
+ (set! test (false))
)
-(assert test [FAILED] (var test_name) Executing dead code 3.)
+(assert! test [FAILED] (var test_name) Executing dead code 3.)
-(set test
+(set! test
(ifelse (false)
(false)
(true)
)
)
-(assert test [FAILED] (var test_name) Executing dead code 4.)
+(assert! test [FAILED] (var test_name) Executing dead code 4.)
-(set test
+(set! test
(ifelse (true)
(true)
(false)
)
)
-(assert test [FAILED] (var test_name) Executing dead code 5.)
+(assert! test [FAILED] (var test_name) Executing dead code 5.)
-(assert
+(assert!
(=
(ifelse (= 8 (+ 4 4))
( valid string )
@@ -58,4 +58,4 @@
[COMPLETED] (var test_name)
-(end)
+(end!)