From 73aabefd60ecd05523aa628dbb96dcf153a872d2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 28 Jan 2017 03:18:09 -0800 Subject: [PATCH] Some tests had undefined assertions; use new assertions instead. --- tests/runtime/test-compound-predicate.scm | 4 ++-- tests/runtime/test-predicate-metadata.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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)))) -- 2.25.1