Some tests had undefined assertions; use new assertions instead.

diff --git a/tests/runtime/test-compound-predicate.scm b/tests/runtime/test-compound-predicate.scm
index 26d714aaf000f6dc4f2ff594d3e492026e94e10f..ed79fa21bf9a6feea61b335c3424489c23088468 100644 (file)
--- a/tests/runtime/test-compound-predicate.scm
+++ b/tests/runtime/test-compound-predicate.scm
@@ -80,11 +80,11 @@ USA.
         (cond ((eqv? tagging-strategy predicate-tagging-strategy:never)
                (assert-eq datum object))
               ((eqv? tagging-strategy predicate-tagging-strategy:always)
-               (assert-not-eq datum object))
+               (assert-!eq datum object))
               (else
                (if (predicate<= (object->predicate datum) predicate)
                    (assert-eq datum object)
-                   (assert-not-eq datum object))))))
+                   (assert-!eq datum object))))))
      data)
     (for-each (lambda (non-datum)
                (assert-type-error (lambda () (tagger non-datum))))

diff --git a/tests/runtime/test-predicate-metadata.scm b/tests/runtime/test-predicate-metadata.scm
index 2bb350085576b17b23af9256af5b81496c2bb6fa..3827afc23c3df86c41305b0cd26655da70928626 100644 (file)
--- a/tests/runtime/test-predicate-metadata.scm
+++ b/tests/runtime/test-predicate-metadata.scm
@@ -69,11 +69,11 @@ USA.
         (cond ((eqv? tagging-strategy predicate-tagging-strategy:never)
                (assert-eq datum object))
               ((eqv? tagging-strategy predicate-tagging-strategy:always)
-               (assert-not-eq datum object))
+               (assert-!eq datum object))
               (else
                (if (predicate<= (object->predicate datum) predicate)
                    (assert-eq datum object)
-                   (assert-not-eq datum object))))))
+                   (assert-!eq datum object))))))
      data)
     (for-each (lambda (non-datum)
                (assert-type-error (lambda () (tagger non-datum))))