suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add test for lazy take bug fix -- invariant being incorrectly tested on unforced arg

Browse Source
This commit is contained in:
Stephen Chang 2011-01-30 12:12:55 -05:00
parent 808361b789
commit 08d99f4858
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/lazy/langimpl.rkt
View File

@ -24,7 +24,9 @@
(! (first (take 4 test-lst1))) => 1 (! (first (take 4 test-lst1))) => 1
(! (second (take 4 test-lst1))) => 2 (! (second (take 4 test-lst1))) => 2
(! (third (take 4 test-lst1))) => 3 (! (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 ; not working, only get 1 test passed
#;(define (langimpl-tests) #;(define (langimpl-tests)