From 7cca723382fbe1a2355ebb1487c1a921a9d797db Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 29 Oct 2012 07:56:42 -0600 Subject: [PATCH] fix SRFI 1 testing of `unfold-right' --- collects/srfi/1/fold.rkt | 6 ------ collects/tests/srfi/1/fold-test.rkt | 13 +++++++++++-- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/collects/srfi/1/fold.rkt b/collects/srfi/1/fold.rkt index aa897ae936..443d918d1e 100644 --- a/collects/srfi/1/fold.rkt +++ b/collects/srfi/1/fold.rkt @@ -249,9 +249,3 @@ (recur (cdr lis)))))) ;;; fold.rkt ends here - -(module+ test - (define (test a b) - (unless (equal? a b) (error 'test "failed: ~e vs. ~e" a b))) - (test (unfold-right null? car cdr '(2 3) '(4 5)) - '(3 2 4 5))) diff --git a/collects/tests/srfi/1/fold-test.rkt b/collects/tests/srfi/1/fold-test.rkt index 63d9a5db49..4e818cadbc 100644 --- a/collects/tests/srfi/1/fold-test.rkt +++ b/collects/tests/srfi/1/fold-test.rkt @@ -73,7 +73,7 @@ (lambda (seed) (* seed 2)) (lambda (seed) (* seed 3)) (lambda (seed) (* seed 5)) - 1) + '(1)) (list 1))) (test-case @@ -82,8 +82,17 @@ (unfold-right (lambda (seed) (= seed 729)) (lambda (seed) (* seed 2)) (lambda (seed) (* seed 3)) - 1 1) + '(486 162 54 18 6 2))) + + (test-case + "unfold-right:normal-case-opt-arg" + (check-equal? + (unfold-right (lambda (seed) (= seed 729)) + (lambda (seed) (* seed 2)) + (lambda (seed) (* seed 3)) + 1 + '(1)) '(486 162 54 18 6 2 1))) ;; FOLD