From 0c591f9fc464eb1301de5763b362adccd6708629 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Jan 2009 04:32:46 +0000 Subject: [PATCH] fix a file-relative-path test for windows (merge to 4.1.4) svn: r13215 --- collects/tests/mzscheme/pathlib.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/pathlib.ss b/collects/tests/mzscheme/pathlib.ss index a1f53be883..d088aca2fc 100644 --- a/collects/tests/mzscheme/pathlib.ss +++ b/collects/tests/mzscheme/pathlib.ss @@ -42,7 +42,7 @@ ;; ---------------------------------------- (test (string->path "a") find-relative-path (path->complete-path "b") (path->complete-path "b/a")) -(test (string->path "../../b/a") find-relative-path (path->complete-path "c/b") (path->complete-path "b/a")) +(test (build-path 'up 'up "b" "a") find-relative-path (path->complete-path "c/b") (path->complete-path "b/a")) (test (bytes->path #"a" 'unix) find-relative-path (bytes->path #"/r/b" 'unix) (bytes->path #"/r/b/a" 'unix)) (test (bytes->path #"a" 'windows) find-relative-path (bytes->path #"c:/r/b" 'windows) (bytes->path #"c:/r/b/a" 'windows))