| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'data/unit-testing/cons_car_cdr.fate')
| -rw-r--r-- | data/unit-testing/cons_car_cdr.fate | 26 |
1 files changed, 13 insertions, 13 deletions
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!) |