add tests for push#22080

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)))

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))