fix (take 0 nonemptylist) test in tests/lazy/langimpl.rkt
This commit is contained in:
parent
1ab22f7c2b
commit
f60957282f
|
@ -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)))
|
|
@ -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))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue
Block a user