From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Jan 2017 11:18:09 +0000 (-0800)
Subject: Some tests had undefined assertions; use new assertions instead.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~42
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=73aabefd60ecd05523aa628dbb96dcf153a872d2;p=mit-scheme.git

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 26d714aaf..ed79fa21b 100644
--- 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 2bb350085..3827afc23 100644
--- 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))))