diff --git a/pkgs/racket-test-core/tests/racket/serialize.rktl b/pkgs/racket-test-core/tests/racket/serialize.rktl index f9a22135c0..057b3d5f4b 100644 --- a/pkgs/racket-test-core/tests/racket/serialize.rktl +++ b/pkgs/racket-test-core/tests/racket/serialize.rktl @@ -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")))) ;; ----------------------------------------