From 034153205de05ef2a4facf7aded9912ce8dfb6b5 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 1 May 2021 20:58:23 +0200
Subject: Suffixes imperative stuff with '!', adds ({set,list} ... )
 shorthands.

---
 data/unit-testing/ifelse.fate | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'data/unit-testing/ifelse.fate')

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!)
-- 
cgit v1.2.3-70-g09d2