From e1df435b7d799e83363e6a3901b0098de6e70eb0 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 25 Mar 2015 22:25:27 -0400 Subject: [PATCH] Adding list section --- tests/unit-tests.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/tests/unit-tests.scm b/tests/unit-tests.scm index 6e5d694e..4e045c34 100644 --- a/tests/unit-tests.scm +++ b/tests/unit-tests.scm @@ -13,6 +13,13 @@ (assert "Testing assert function" #t) (assert "Testing assert function" 1) +;; Lists +(define l (list 'a 'b 'c)) +; TODO: seems to break eval below, is there a GC problem with a circular list? +;(set-cdr! l l) +(set-cdr! l '(c b)) ; Above seems to break if it replaces this line +(assert:equal "list? on circular list" (list? l) #t) + ;; Adder example (define (make-adder x) (lambda (y) (+ x y))) @@ -220,7 +227,7 @@ (assert:equal "eval compiled - x" (eval 'x) x) (eval '(set! x 'mutated-x)) (assert:equal "Access var with a mangled name" (eval '*z*) *z*) -(assert:equal "Access compile var mutated by eval" x 'mutated-x) +(assert:equal "Access compiled var mutated by eval" x 'mutated-x) ;; END eval ; TODO: use display, output without surrounding quotes