From b23424f8d0b093b3438e9c6a2665a543decd7355 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 10 Sep 2019 00:08:36 -0700 Subject: tests: add tests for list-builder and fix bug. * share/txr/stdlib/build.tl (list-buider pend*): Fix typo: apply should be append. Funny, this didn't propagate to ncon*. * tests/012/seq.tl: Some list-builder tests via build macro. --- tests/012/seq.tl | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 66361cfb..9c3821d1 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -7,3 +7,13 @@ (test (append '(1) 2) (1 . 2)) (test (append '(1 . 2) 2) :error) (test (append '(1 . #(3 4 5)) "d") (1 . #(3 4 5 #\d))) + +(test (build (add 1) (add 2) (pend (get))) (1 2 1 2)) +(test (build (add 1) (add 2) (pend* (get))) (1 2 1 2)) +(test (build (add 1) (add 2) (pend (get) (get))) (1 2 1 2 1 2)) +(test (build (add 1) (add 2) (pend* (get) (get))) (1 2 1 2 1 2)) + +(set *print-circle* t) + +(stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)") +(stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)") -- cgit v1.2.3