| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2021-09-04 22:26:09 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2021-09-04 22:26:09 +0200 |
| commit | 050e329f2a2e2367c2e4f1965190b0f6a5addf29 (patch) | |
| tree | b6bf78443e11abda7c41375ee89831bbe0032edb /data/unit-testing/cons_car_cdr.fate | |
| parent | 235dc12bf63220371f2ef4defb1f563830e6719a (diff) | |
The blackjack example works again.parser_rework
Diffstat (limited to 'data/unit-testing/cons_car_cdr.fate')
| -rw-r--r-- | data/unit-testing/cons_car_cdr.fate | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/data/unit-testing/cons_car_cdr.fate b/data/unit-testing/cons_car_cdr.fate index a555cc0..885e4e4 100644 --- a/data/unit-testing/cons_car_cdr.fate +++ b/data/unit-testing/cons_car_cdr.fate @@ -28,7 +28,7 @@ (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))). ) -(assert! (= (car (cons test 0)) test) +(assert! (= (car (cons test 0)) (string test)) [FAILED] (var test_name) test string: (car (cons test 0)) ) @@ -39,7 +39,7 @@ (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! (= (cdr cfs) (string pi)) [FAILED] (var test_name) test pi: (cdr cfs).) (set! cfs2 (cons (car cfs) (cdr cfs))) |