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

Finally there should be no temp file leftovers now.

Browse Source
This commit is contained in:
Eli Barzilay 2011-08-29 22:12:25 -04:00
parent 14357370dd
commit 4ae7e05632
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/racket/filelib.rktl
View File

@ -172,6 +172,9 @@
"dir" "dir"
(string->path "stuff")) (string->path "stuff"))
(delete-file tempfile)
(delete-file (make-lock-file-name tempfile))
;; ---------------------------------------- ;; ----------------------------------------
(report-errs) (report-errs)

4
collects/tests/racket/resource.rktl
View File

@ -77,8 +77,8 @@
(rtest #t write-resource "Temporary" "more" 10 tmp-ini) (rtest #t write-resource "Temporary" "more" 10 tmp-ini)
(rtest 10 get-resource "Temporary" "more" #f tmp-ini #:type 'integer) (rtest 10 get-resource "Temporary" "more" #f tmp-ini #:type 'integer)
(when (eq? 'windows (system-type)) (when (eq? 'windows (system-type))
(rtest "[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))) (delete-file tmp-ini))
(void)) (void))