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

use tmp dir for saved prefs file

Browse Source 
svn: r9736
This commit is contained in:
Eli Barzilay 2008-05-08 12:09:08 +00:00
parent 77c354e1c0
commit 68a266599d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/framework/prefs.ss
View File

@ -1,6 +1,5 @@
(module prefs mzscheme (module prefs mzscheme
(require "test-suite-utils.ss" (require "test-suite-utils.ss"
mzlib/etc
mzlib/list) mzlib/list)
(define ((check-eq? x) y) (eq? x y)) (define ((check-eq? x) y) (eq? x y))
@ -8,11 +7,11 @@
(define marshalling-pref-sym 'plt:not-a-real-preference-marshalling) (define marshalling-pref-sym 'plt:not-a-real-preference-marshalling)
(define default-test-sym 'plt:not-a-real-preference-default-test) (define default-test-sym 'plt:not-a-real-preference-default-test)
(define saved-prefs-file (define saved-prefs-file
(let loop ([n 0]) (let loop ([n 0])
(let ([candidate (let ([candidate
(build-path (this-expression-source-directory) (build-path (find-system-path 'temp-dir)
(format "save-prefs.~a" n))]) (format "saved-prefs.~a" n))])
(if (file-exists? candidate) (if (file-exists? candidate)
(loop (+ n 1)) (loop (+ n 1))
candidate)))) candidate))))