summaryrefslogtreecommitdiff
path: root/test-suite/tests/ephemerons.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/ephemerons.test')
-rw-r--r--test-suite/tests/ephemerons.test12
1 files changed, 4 insertions, 8 deletions
diff --git a/test-suite/tests/ephemerons.test b/test-suite/tests/ephemerons.test
index fa08c2448..f37c0ff3b 100644
--- a/test-suite/tests/ephemerons.test
+++ b/test-suite/tests/ephemerons.test
@@ -27,14 +27,10 @@
(pass-if (ephemeron? (make-ephemeron (cons 42 42) 42)))
(with-test-prefix "ephemeron key not heap object"
- (pass-if-exception "fixnum" exception:wrong-type-arg
- (make-ephemeron 42 42))
- (pass-if-exception "char" exception:wrong-type-arg
- (make-ephemeron #\a 42))
- (pass-if-exception "bool" exception:wrong-type-arg
- (make-ephemeron #f 42))
- (pass-if-exception "bool" exception:wrong-type-arg
- (make-ephemeron #t 42)))
+ (pass-if "fixnum" (ephemeron? (make-ephemeron 42 42)))
+ (pass-if "char" (ephemeron? (make-ephemeron #\a 42)))
+ (pass-if "bool" (ephemeron? (make-ephemeron #f 42)))
+ (pass-if "bool" (ephemeron? (make-ephemeron #t 42))))
(let ((x (cons 42 69)))
(define e (make-ephemeron x 100))