fix (take 0 nonemptylist) test in tests/lazy/langimpl.rkt

This commit is contained in:
Stephen Chang 2011-01-26 18:14:34 -05:00
parent 1ab22f7c2b
commit f60957282f
2 changed files with 4 additions and 3 deletions

View File

@ -5,8 +5,8 @@
;; tests for lazy language constructs
(define (test-take)
(test (take 0 '(1 2 3)) => '())) ; test for push#22080
(test (! (take 0 '(1 2 3))) => '())) ; test for push#22080
(provide langimpl-tests)
(define (langimpl-tests)
(test do (test-take)))
(test (test-take)))

View File

@ -3,5 +3,6 @@
(require tests/eli-tester "promise.rkt" "lang.rkt" "langimpl.rkt")
(test do (lang-tests)
do (langimpl-tests)
do (promise-tests)
do (langimpl-tests))
)