suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed make-object test and added interface test

Browse Source 
original commit: 5e1ef35769038168fa31b98318a726a002c38490
This commit is contained in:
Robby Findler 1998-08-06 14:22:46 +00:00
parent 4532380836
commit a28886716b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/pconvert.ss
View File

@ -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))