From 1ab22f7c2b88a4901d13015aed2a5a06bb990d75 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Wed, 26 Jan 2011 17:25:11 -0500 Subject: [PATCH] add tests for push#22080 --- collects/tests/lazy/langimpl.rkt | 12 ++++++++++++ collects/tests/lazy/main.rkt | 5 +++-- 2 files changed, 15 insertions(+), 2 deletions(-) create mode 100644 collects/tests/lazy/langimpl.rkt 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))