Implement assert-range-error.

Also rename assert-wta-error to assert-type-error.

diff --git a/tests/runtime/test-parametric-predicate.scm b/tests/runtime/test-parametric-predicate.scm
index 7542398ea40fb8cd4721fa2922325f6081c25b22..4357b3706417301186ab8819aaedfe9e06ab9c4f 100644 (file)
--- a/tests/runtime/test-parametric-predicate.scm
+++ b/tests/runtime/test-parametric-predicate.scm
@@ -178,7 +178,7 @@ USA.
 \f
 (define-test 'match-template-pattern
   (lambda ()
-    (assert-wta-error (lambda () (match-numbers '((? a)) 1)))
+    (assert-type-error (lambda () (match-numbers '((? a)) 1)))
     (assert-equal (match-numbers '((? a)) '(1))
                   '((a + 1)))
     (assert-equal (match-numbers '((? a -) (? b)) '(1 2))

diff --git a/tests/runtime/test-predicate-metadata.scm b/tests/runtime/test-predicate-metadata.scm
index 5be30cb1f6fda8ec77183d0f30bc339456175258..7d9e7a2a42a4b0cd1fcd8bf35d4344f5fd40971b 100644 (file)
--- a/tests/runtime/test-predicate-metadata.scm
+++ b/tests/runtime/test-predicate-metadata.scm
@@ -32,8 +32,8 @@ USA.
   (lambda ()
     (let ((np (lambda (object) #f)))
       (assert-false (predicate? np))
-      (assert-wta-error (lambda () (predicate->tag np)))
-      (assert-wta-error (lambda () (predicate-name np)))
+      (assert-type-error (lambda () (predicate->tag np)))
+      (assert-type-error (lambda () (predicate-name np)))
       (assert-true (string? (predicate-description np))))))
 
 (define-test 'simple-predicate

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 523a91ccf5ba72e17ee9477bd18daacffd3d4d36..3353ef39faed836ebf20cd053bd78c89138bc197 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -436,9 +436,12 @@ USA.
 (define-for-tests assert-simple-error
   (error-assertion condition-type:simple-error))
 
-(define-for-tests assert-wta-error
+(define-for-tests assert-type-error
   (error-assertion condition-type:wrong-type-argument))
 
+(define-for-tests assert-range-error
+  (error-assertion condition-type:bad-range-argument))
+
 (define-for-tests keep-it-fast!?
   (let ((v (get-environment-variable "FAST")))
     (if (or (eq? v #f) (string-null? v))