From a28886716b5df01f52c93c5cc8b08e2a4dc9d479 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 6 Aug 1998 14:22:46 +0000 Subject: [PATCH] fixed make-object test and added interface test original commit: 5e1ef35769038168fa31b98318a726a002c38490 --- collects/tests/mzscheme/pconvert.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss index c6568bc..f977c86 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.ss @@ -160,6 +160,9 @@ '(cons 3/2+3/2i null)) (make-same-test (vector 0 0 0 0 0 0 0 0 0 0) '(vector 0 0 0 0 0 0 0 0 0 0)) + + (make-same-test (interface () a b c) '(interface ...)) + (make-same-test (delay 1) '(delay ...)) (make-same-test (let-struct a (a) (make-a 3)) '(make-a 3)) (make-same-test (box 3) '(box 3)) @@ -335,7 +338,7 @@ (test-not-shared (make-promise (lambda () 1)) '(delay ...)) (test-not-shared (class () ()) '(class ...)) (test-not-shared (unit (import) (export)) '(unit ...)) - (test-not-shared (make-object (class () ())) '(make-object (class ...))) + (test-not-shared (make-object (class () ())) '(make-object (class ...) ...)) (test-shared "abc" "abc") (test-shared (list 1 2 3) '(list 1 2 3))