From 034153205de05ef2a4facf7aded9912ce8dfb6b5 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 1 May 2021 20:58:23 +0200 Subject: Suffixes imperative stuff with '!', adds ({set,list} ... ) shorthands. --- data/unit-testing/cons_car_cdr.fate | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'data/unit-testing/cons_car_cdr.fate') diff --git a/data/unit-testing/cons_car_cdr.fate b/data/unit-testing/cons_car_cdr.fate index 7187f6a..a555cc0 100644 --- a/data/unit-testing/cons_car_cdr.fate +++ b/data/unit-testing/cons_car_cdr.fate @@ -2,33 +2,33 @@ (global string test_name) -(set test_name ( CONS CAR CDR )) +(set! test_name ( CONS CAR CDR )) -(assert (= (car (cons 1 (cons 2 (cons 3 (cons 4 5))))) 1) +(assert! (= (car (cons 1 (cons 2 (cons 3 (cons 4 5))))) 1) [FAILED] (var test_name) test 1: (car (cons 1 (cons 2 (cons 3 (cons 4 5))))). ) -(assert (= (car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))) 2) +(assert! (= (car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))) 2) [FAILED] (var test_name) test 2: (car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))). ) -(assert (= (car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))) 3) +(assert! (= (car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))) 3) [FAILED] (var test_name) test 3: (car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))). ) -(assert (= (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 4) +(assert! (= (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 4) [FAILED] (var test_name) test 4: (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))). ) -(assert (= (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 5) +(assert! (= (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 5) [FAILED] (var test_name) test 5: (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))). ) -(assert (= (car (cons test 0)) test) +(assert! (= (car (cons test 0)) test) [FAILED] (var test_name) test string: (car (cons test 0)) ) @@ -36,16 +36,16 @@ (global (cons float string) cfs) (global (cons float string) cfs2) -(set cfs (cons 3.14 pi)) +(set! cfs (cons 3.14 pi)) -(assert (= (car cfs) 3.14) [FAILED] (var test_name) test 3.14: (car cfs).) -(assert (= (cdr cfs) pi) [FAILED] (var test_name) test pi: (cdr cfs).) +(assert! (= (car cfs) 3.14) [FAILED] (var test_name) test 3.14: (car cfs).) +(assert! (= (cdr cfs) pi) [FAILED] (var test_name) test pi: (cdr cfs).) -(set cfs2 (cons (car cfs) (cdr cfs))) +(set! cfs2 (cons (car cfs) (cdr cfs))) -(assert (= (var cfs2) (var cfs)) [FAILED] (var test_name) equality.) +(assert! (= (var cfs2) (var cfs)) [FAILED] (var test_name) equality.) [COMPLETED] (var test_name) -(end) +(end!) -- cgit v1.2.3-70-g09d2