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

fix test for the case that the addon dir is missing

Browse Source
This commit is contained in:
Matthew Flatt 2015-12-05 14:41:22 -05:00
parent f88ba77a5c
commit d87e3ead7f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/filelib.rktl
View File

@ -216,8 +216,10 @@
(try-atomic-output (make-temporary-file)) (try-atomic-output (make-temporary-file))
;; The user's add-on directory should be writable and might be a ;; The user's add-on directory should be writable and might be a
;; different filesystem, so try that: ;; different filesystem, so try that:
(parameterize ([current-directory (find-system-path 'addon-dir)]) (let ([addon-dir (find-system-path 'addon-dir)])
(try-atomic-output (format "atomic-output-~a" (current-inexact-milliseconds)))) (make-directory* addon-dir)
(parameterize ([current-directory addon-dir])
(try-atomic-output (format "atomic-output-~a" (current-inexact-milliseconds)))))
;; ---------------------------------------- ;; ----------------------------------------