diff options
Diffstat (limited to 'test-suite/tests/ephemerons.test')
-rw-r--r-- | test-suite/tests/ephemerons.test | 12 |
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)) |