suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add tests for push#22080

Browse Source
This commit is contained in:
Stephen Chang 2011-01-26 17:25:11 -05:00
parent 40610643bf
commit 1ab22f7c2b
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/lazy/langimpl.rkt Normal file
View File

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

5
collects/tests/lazy/main.rkt
View File

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