From 3c4807f032ca63b4804f6dc4a4aa498085b6291d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 5 Feb 2011 08:32:33 -0700 Subject: [PATCH] fix coverage of `file/resource' tests --- collects/tests/racket/resource.rktl | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/resource.rktl b/collects/tests/racket/resource.rktl index cbbe765bd8..a055ccd975 100644 --- a/collects/tests/racket/resource.rktl +++ b/collects/tests/racket/resource.rktl @@ -38,10 +38,18 @@ (let ([b (box 10)]) (rtest #t get-resource key (entry "Stuff") b) (xtest 0 10 unbox b)) - + (rtest #t write-resource key (entry "Stuff") 88) + (rtest "88" get-resource key (entry "Stuff")) + (rtest #t write-resource key (entry "Stuff") #"!") + (rtest "!" get-resource key (entry "Stuff")) + ;; An integer-valued resource (rtest #t write-resource key (entry "Count") 17 #:type 'dword) (rtest "17" get-resource key (entry "Count")) + (rtest #t write-resource key (entry "Count") "17" #:type 'dword) + (rtest "17" get-resource key (entry "Count")) + (rtest #t write-resource key (entry "Count") #"17" #:type 'dword) + (rtest "17" get-resource key (entry "Count")) (rtest #"17" get-resource key (entry "Count") #:type 'bytes) (rtest 17 get-resource key (entry "Count") #:type 'integer) (rtest #t write-resource key (entry "Count") -17 #:type 'dword) @@ -52,17 +60,24 @@ (rtest "i?mage" get-resource key (entry "Data")) (rtest #"i\377mage" get-resource key (entry "Data") #:type 'bytes) (rtest 0 get-resource key (entry "Data") #:type 'integer) + (rtest #t write-resource key (entry "Data") 17 #:type 'bytes) + (rtest "17" get-resource key (entry "Data")) + (rtest #t write-resource key (entry "Data") "17" #:type 'bytes) + (rtest "17" get-resource key (entry "Data")) ;; .ini file: (let ([tmp-ini (make-temporary-file "temp~a.ini")]) (rtest #f get-resource "Temporary" "Stuff" #f tmp-ini) (rtest #t write-resource "Temporary" "Stuff" "howdy" tmp-ini) (rtest "howdy" get-resource "Temporary" "Stuff" #f tmp-ini) + (let ([b (box "")]) + (rtest #t get-resource "Temporary" "Stuff" b tmp-ini) + (xtest "howdy" "" unbox b)) (rtest #f get-resource "Temporary" "more" #f tmp-ini) (rtest #t write-resource "Temporary" "more" 10 tmp-ini) (rtest 10 get-resource "Temporary" "more" #f tmp-ini #:type 'integer) (when (eq? 'windows (system-type)) - (test "[Temporary]\r\nStuff=howdy\r\nmore=10\r\n" file->string tmp-ini) + (rtest "[Temporary]\r\nStuff=howdy\r\nmore=10\r\n" file->string tmp-ini) (delete-file tmp-ini))) (void))