diff --git a/collects/tests/lazy/langimpl.rkt b/collects/tests/lazy/langimpl.rkt new file mode 100644 index 0000000000..361e312f04 --- /dev/null +++ b/collects/tests/lazy/langimpl.rkt @@ -0,0 +1,12 @@ +#lang racket/base + +(require tests/eli-tester lazy) + +;; tests for lazy language constructs + +(define (test-take) + (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 diff --git a/collects/tests/lazy/main.rkt b/collects/tests/lazy/main.rkt index f12cdacfbd..1701cb253d 100644 --- a/collects/tests/lazy/main.rkt +++ b/collects/tests/lazy/main.rkt @@ -1,6 +1,7 @@ #lang scheme/base -(require tests/eli-tester "promise.ss" "lang.ss") +(require tests/eli-tester "promise.rkt" "lang.rkt" "langimpl.rkt") (test do (lang-tests) - do (promise-tests)) + do (promise-tests) + do (langimpl-tests))