From 08d99f4858bb20f82c9266eaadf7de87dba19e4b Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Sun, 30 Jan 2011 12:12:55 -0500 Subject: [PATCH] add test for lazy take bug fix -- invariant being incorrectly tested on unforced arg --- collects/tests/lazy/langimpl.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/lazy/langimpl.rkt b/collects/tests/lazy/langimpl.rkt index 30f20406a2..6dbee9933a 100644 --- a/collects/tests/lazy/langimpl.rkt +++ b/collects/tests/lazy/langimpl.rkt @@ -24,7 +24,9 @@ (! (first (take 4 test-lst1))) => 1 (! (second (take 4 test-lst1))) => 2 (! (third (take 4 test-lst1))) => 3 - (! (fourth (take 4 test-lst1))) =error> "take: index 4 too large for input list")) + (! (fourth (take 4 test-lst1))) =error> "take: index 4 too large for input list" + (! (list-ref (take (car (list 1)) (list 2)) 0)) => 2 + )) ; not working, only get 1 test passed #;(define (langimpl-tests)