mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* lib.scm (pass-if, expect-fail): Generalized.

Browse source 
* * tests/eval.test:  Fixed documentation test.
This commit is contained in:
Dirk Herrmann 2000-08-21 08:57:11 +00:00
parent d8d4d49366
commit 6ad9007abf
3 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/ChangeLog
View file

@ -1,3 +1,10 @@
2000-08-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* lib.scm (pass-if, expect-fail): Generalized to allow a sequence
of expressions.
* tests/eval.test: Fix documentation test.
2000-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/list.test: Added tests for list-ref, list-set! and * tests/list.test: Added tests for list-ref, list-set! and

8
test-suite/lib.scm
View file

@ -244,12 +244,12 @@
(set! run-test local-run-test)) (set! run-test local-run-test))
;;; A short form for tests that are expected to pass, taken from Greg. ;;; A short form for tests that are expected to pass, taken from Greg.
(defmacro pass-if (name body) (defmacro pass-if (name body . rest)
`(run-test ,name #t (lambda () (not (not (begin ,body)))))) `(run-test ,name #t (lambda () (not (not (begin ,body ,@rest))))))
;;; A short form for tests that are expected to fail, taken from Greg. ;;; A short form for tests that are expected to fail, taken from Greg.
(defmacro expect-fail (name body) (defmacro expect-fail (name body . rest)
`(run-test ,name #f (lambda () ,body))) `(run-test ,name #f (lambda () ,body ,@rest)))
;;;; TEST NAMES ;;;; TEST NAMES

2
test-suite/tests/eval.test
View file

@ -94,7 +94,7 @@
;; Is documentation available? ;; Is documentation available?
(expect-fail "documented?" (expect-fail "documented?"
(documented? 'map)) (documented? map))
(with-test-prefix "argument error" (with-test-prefix "argument error"