Allow assert-error to be used without explicit error conditions.

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 0f4287dca28bed942b5965a42c5f435e37f2d165..171635ed73d3725dd1c74f2d33f0051a1261251d 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -417,12 +417,15 @@ USA.
             'EQUALITY-PREDICATE =
             properties)))
 \f
-(define-for-tests (assert-error thunk condition-types . properties)
+(define-for-tests (assert-error thunk #!optional condition-types . properties)
   (call-with-current-continuation
    (lambda (k)
      (apply fail
            'RESULT-OBJECT
-           (bind-condition-handler condition-types
+           (bind-condition-handler
+               (if (default-object? condition-types)
+                   (list condition-type:error)
+                   condition-types)
                (lambda (condition)
                  condition             ;ignore
                  (k #f))