summaryrefslogtreecommitdiff
path: root/test-suite/lib.scm
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-08-21 08:57:11 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-08-21 08:57:11 +0000
commit6ad9007abf9a0cd26315471aecbe03fdf7fac9f7 (patch)
treef9f0c0cd3d2182e59549255c41cdcf2d0ef62e6b /test-suite/lib.scm
parentd8d4d4936655c9798f93d110c7931a5058d7d95f (diff)
downloadguile-6ad9007abf9a0cd26315471aecbe03fdf7fac9f7.tar.gz
* lib.scm (pass-if, expect-fail): Generalized.
* * tests/eval.test: Fixed documentation test.
Diffstat (limited to 'test-suite/lib.scm')
-rw-r--r--test-suite/lib.scm8
1 files changed, 4 insertions, 4 deletions
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