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

fix moddep test for Windows

Browse Source 
svn: r10186
This commit is contained in:
Matthew Flatt 2008-06-07 12:15:06 +00:00
parent 76732257c7
commit 301a91e0ad
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/mzscheme/moddep.ss
View File

@ -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"))])