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

.

Browse Source 
original commit: e8bc774aa1a24ffc13ad1a4d5b0eec77f725643b
This commit is contained in:
Matthew Flatt 1999-06-18 17:06:11 +00:00
parent 1247d66af0
commit e169b1a9ef
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -329,16 +329,16 @@
(test-not-shared 1 1)
(test-not-shared 3276832768327683276832768327683276832768
3276832768327683276832768327683276832768)
(test-not-shared (regexp "") '(regexp ...))
(let ([in (open-input-string "")]) (test-not-shared in in))
(let ([out (open-output-string)]) (test-not-shared out out))
(test-shared (regexp "") '(regexp ...))
(let ([in (open-input-string "")]) (test-shared in in))
(let ([out (open-output-string)]) (test-shared out out))
(test-not-shared #\a #\a)
(test-not-shared 'x ''x)
(test-not-shared (lambda (x) x) '(lambda (a1) ...))
(test-not-shared (make-promise (lambda () 1)) '(delay ...))
(test-not-shared (class object% ()) '(class ...))
(test-not-shared (unit (import) (export)) '(unit ...))
(test-not-shared (make-object (class object% () (sequence (super-init)))) '(make-object (class ...) ...))
(test-shared (lambda (x) x) '(lambda (a1) ...))
(test-shared (make-promise (lambda () 1)) '(delay ...))
(test-shared (class object% ()) '(class ...))
(test-shared (unit (import) (export)) '(unit ...))
(test-shared (make-object (class object% () (sequence (super-init)))) '(make-object (class ...) ...))
(test-shared "abc" "abc")
(test-shared (list 1 2 3) '(list 1 2 3))