From d87e3ead7f8a58070bac7c8fe35493761b0152df Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 5 Dec 2015 14:41:22 -0500 Subject: [PATCH] fix test for the case that the addon dir is missing --- pkgs/racket-test-core/tests/racket/filelib.rktl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/filelib.rktl b/pkgs/racket-test-core/tests/racket/filelib.rktl index 7ee5477730..afbe933490 100644 --- a/pkgs/racket-test-core/tests/racket/filelib.rktl +++ b/pkgs/racket-test-core/tests/racket/filelib.rktl @@ -216,8 +216,10 @@ (try-atomic-output (make-temporary-file)) ;; The user's add-on directory should be writable and might be a ;; different filesystem, so try that: -(parameterize ([current-directory (find-system-path 'addon-dir)]) - (try-atomic-output (format "atomic-output-~a" (current-inexact-milliseconds)))) +(let ([addon-dir (find-system-path 'addon-dir)]) + (make-directory* addon-dir) + (parameterize ([current-directory addon-dir]) + (try-atomic-output (format "atomic-output-~a" (current-inexact-milliseconds))))) ;; ----------------------------------------