From 301a91e0ad1690ec397ec858b6eaaec80f978d7e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 7 Jun 2008 12:15:06 +0000 Subject: [PATCH] fix moddep test for Windows svn: r10186 --- collects/tests/mzscheme/moddep.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/moddep.ss b/collects/tests/mzscheme/moddep.ss index 718d73f4e3..47da1382db 100644 --- a/collects/tests/mzscheme/moddep.ss +++ b/collects/tests/mzscheme/moddep.ss @@ -116,7 +116,7 @@ (test-cmp '(planet "x.ss" ("m" "z.plt" 2 (- 5))) '(planet "m/z:2:<=5/x.ss") (build-path "yikes")) (test-cmp '(planet "x.ss" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.ss") (build-path "yikes")) -(test-cmp (string->path "./x.ss") "x.ss" (build-path 'same)) +(test-cmp (build-path 'same "x.ss") "x.ss" (build-path 'same)) ;; Try path cases that don't fit UTF-8 (and therefore would go wrong as a string): (let ([dir (build-path (current-directory) (bytes->path #"\xFF"))])