diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-08-21 08:57:11 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-08-21 08:57:11 +0000 |
commit | 6ad9007abf9a0cd26315471aecbe03fdf7fac9f7 (patch) | |
tree | f9f0c0cd3d2182e59549255c41cdcf2d0ef62e6b /test-suite/lib.scm | |
parent | d8d4d4936655c9798f93d110c7931a5058d7d95f (diff) | |
download | guile-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.scm | 8 |
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 |