From 48fdcdd65d0125711094d685a80d544d6b070360 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 17 Sep 2011 06:34:50 -0600 Subject: [PATCH] fix a path test for windows --- collects/tests/racket/moddep.rktl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/tests/racket/moddep.rktl b/collects/tests/racket/moddep.rktl index 2ebc116810..60dc54c9c0 100644 --- a/collects/tests/racket/moddep.rktl +++ b/collects/tests/racket/moddep.rktl @@ -63,7 +63,8 @@ (err/rt-test (resolve-module-path-index "apple.ss" #f)) (err/rt-test (resolve-module-path-index (module-path-index-join #f #f) #f) exn:fail?) -(test (expand-user-path "~/x.rkt") resolve-module-path '(file "~/x.rkt") #f) +(when (eq? (system-path-convention-type) 'unix) + (test (expand-user-path "~/x.rkt") resolve-module-path '(file "~/x.rkt") #f)) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; collapse-module-path[-index]