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

moving tests

Browse Source 
svn: r13831
This commit is contained in:
Jay McCarthy 2009-02-25 12:37:43 +00:00
parent 9657528134
commit 51b867459b
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/xml/plist.ss
View File

@ -180,39 +180,5 @@
(error 'read-plist "xml expression is not a plist: ~a" content)) (error 'read-plist "xml expression is not a plist: ~a" content))
(collapse-dict (caddr content)))) (collapse-dict (caddr content))))
;; TEST
'(define my-dict
`(dict (assoc-pair "first-key"
"just a string
with some whitespace in it")
(assoc-pair "second-key"
(false))
(assoc-pair "third-key"
(dict ))
(assoc-pair "fourth-key"
(dict (assoc-pair "inner-key"
(real 3.432))))
(assoc-pair "fifth-key"
(array (integer 14)
"another string"
(true)))
(assoc-pair "sixth-key"
(array))))
'(call-with-output-file "/Users/clements/tmp.plist"
(lambda (port)
(write-plist my-dict port))
'truncate)
'(define new-dict
(call-with-input-file "/Users/clements/tmp.plist"
(lambda (port)
(read-plist port))))
'(equal? new-dict my-dict)
;; END OF TEST
(provide plist-dict? read-plist) (provide plist-dict? read-plist)
(provide/contract [write-plist (plist-dict? output-port? . -> . void?)])) (provide/contract [write-plist (plist-dict? output-port? . -> . void?)]))