From: Chris Hanson Date: Wed, 2 Jun 2010 09:08:06 +0000 (-0700) Subject: Change RUN-SUB-TEST to allow it to take properties. X-Git-Tag: 20100708-Gtk~23 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9689f8f747d3d517f63fd1433138ffdac2c1e764;p=mit-scheme.git Change RUN-SUB-TEST to allow it to take properties. --- diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm index 1e95c9a1e..ca9ecd40d 100644 --- a/tests/unit-testing.scm +++ b/tests/unit-testing.scm @@ -273,17 +273,20 @@ USA. ;;;; Assertions -(define-for-tests (run-sub-test thunk) +(define-for-tests (run-sub-test thunk . properties) (call-with-current-continuation (lambda (k) (bind-condition-handlers (list condition-type:failure (lambda (condition) - (k (access-condition condition 'FAILURE))) + (k (extend-failure (condition-failure condition) + properties))) condition-type:error (lambda (condition) (if (not throw-test-errors?) - (k (make-failure 'CONDITION condition))))) + (k (apply make-failure + 'CONDITION condition + properties))))) (lambda () (thunk) #f)))))