From 51b867459b4eea801e9314765ff5e8ab8e8387da Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 25 Feb 2009 12:37:43 +0000 Subject: [PATCH] moving tests svn: r13831 --- collects/xml/plist.ss | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/collects/xml/plist.ss b/collects/xml/plist.ss index d7b7d27b20..6e06e75a3f 100644 --- a/collects/xml/plist.ss +++ b/collects/xml/plist.ss @@ -180,39 +180,5 @@ (error 'read-plist "xml expression is not a plist: ~a" 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/contract [write-plist (plist-dict? output-port? . -> . void?)]))