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

Windows: avoid Unix-specific test

Browse Source
This commit is contained in:
Matthew Flatt 2012-09-12 11:19:20 -06:00
parent 90dad98220
commit 906ddb7fbf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/file.rktl
View File

@ -1532,7 +1532,7 @@
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check that `in-directory' fails properly on filesystem errors ;; Check that `in-directory' fails properly on filesystem errors
(let () (unless (eq? 'windows (system-type))
(define tmp (build-path (build-path (find-system-path 'temp-dir)) (define tmp (build-path (build-path (find-system-path 'temp-dir))
(format "in-dir-tmp-dir~a" (random 1000)))) (format "in-dir-tmp-dir~a" (random 1000))))
(define sub (build-path tmp "sub")) (define sub (build-path tmp "sub"))