diff --git a/collects/tests/lazy/langimpl.rkt b/collects/tests/lazy/langimpl.rkt index 361e312f04..2033bce353 100644 --- a/collects/tests/lazy/langimpl.rkt +++ b/collects/tests/lazy/langimpl.rkt @@ -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))) \ No newline at end of file + (test (test-take))) \ No newline at end of file diff --git a/collects/tests/lazy/main.rkt b/collects/tests/lazy/main.rkt index 1701cb253d..d6711d8a20 100644 --- a/collects/tests/lazy/main.rkt +++ b/collects/tests/lazy/main.rkt @@ -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)) +)