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

..

Browse Source 
original commit: c1858e88db8f2e97c01fff29e6f6135996b190a7
This commit is contained in:
Robby Findler 2003-11-28 15:09:03 +00:00
parent 606b10d2a8
commit cc5ed0b5a5
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,7 @@
(SECTION 'pconvert)
(require (lib "unit.ss")
(lib "file.ss")
(lib "class.ss")
(lib "pconvert.ss"))
@ -368,6 +369,21 @@
(test 'empty print-convert '())
(let ([fn (make-temporary-file "pconvert.ss-test~a")])
(let ([in (open-input-file fn)])
(test `(open-input-file ,fn) print-convert in)
(close-input-port in))
(let ([out (open-output-file fn 'truncate)])
(test `(open-output-file ,fn) print-convert out)
(close-output-port out))
(delete-file fn))
(let ()
(define-struct hidden (a))
(define-struct visible (b) (make-inspector))
(test '(make-hidden ...) print-convert (make-hidden 1))
(test '(make-visible 2) print-convert (make-visible 2)))
(let ([pc
(lambda (pv)
(lambda (x)