From 6ad9007abf9a0cd26315471aecbe03fdf7fac9f7 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 21 Aug 2000 08:57:11 +0000 Subject: [PATCH] * lib.scm (pass-if, expect-fail): Generalized. * * tests/eval.test: Fixed documentation test. --- test-suite/ChangeLog | 7 +++++++ test-suite/lib.scm | 8 ++++---- test-suite/tests/eval.test | 2 +- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 9bcf4fe21..c92509b84 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,10 @@ +2000-08-21 Dirk Herrmann + + * lib.scm (pass-if, expect-fail): Generalized to allow a sequence + of expressions. + + * tests/eval.test: Fix documentation test. + 2000-06-30 Dirk Herrmann * tests/list.test: Added tests for list-ref, list-set! and diff --git a/test-suite/lib.scm b/test-suite/lib.scm index c69b18ba6..fa730973b 100644 --- a/test-suite/lib.scm +++ b/test-suite/lib.scm @@ -244,12 +244,12 @@ (set! run-test local-run-test)) ;;; A short form for tests that are expected to pass, taken from Greg. -(defmacro pass-if (name body) - `(run-test ,name #t (lambda () (not (not (begin ,body)))))) +(defmacro pass-if (name body . rest) + `(run-test ,name #t (lambda () (not (not (begin ,body ,@rest)))))) ;;; A short form for tests that are expected to fail, taken from Greg. -(defmacro expect-fail (name body) - `(run-test ,name #f (lambda () ,body))) +(defmacro expect-fail (name body . rest) + `(run-test ,name #f (lambda () ,body ,@rest))) ;;;; TEST NAMES diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index cdc69ef62..ba6a4ef7e 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -94,7 +94,7 @@ ;; Is documentation available? (expect-fail "documented?" - (documented? 'map)) + (documented? map)) (with-test-prefix "argument error" -- 2.20.1