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

Ignore this PR (#2189)

Browse Source 
Fix bug in serialize test

/ -> root dir

On windows `/` isn't enough to make a complete path.
This commit is contained in:
Leif Andersen 2018-07-26 14:52:31 -04:00 committed by GitHub
parent 0b9a7587f6
commit cb0d79a8ae
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/serialize.rktl
View File

@ -724,7 +724,7 @@
;; ----------------------------------------
(let ()
(let ([root (car (filesystem-root-list))])
(define (test-relative data rel)
(test
'right-error
@ -740,9 +740,9 @@
(serialize data
#:relative-directory rel))))
(test-relative (string->path "/x") (cons "/x" "/x/y"))
(test-relative (build-path root "x") (cons (build-path root "x") (build-path root "x" "y")))
(test-relative (string->path "/x") (cons "/x/z" "/x/y")))
(test-relative (build-path root "x") (cons (build-path root "x" "z") (build-path root "x" "y"))))
;; ----------------------------------------