From cb0d79a8aeda06b651d43367970140a082dc0fd7 Mon Sep 17 00:00:00 2001 From: Leif Andersen Date: Thu, 26 Jul 2018 14:52:31 -0400 Subject: [PATCH] Ignore this PR (#2189) Fix bug in serialize test / -> root dir On windows `/` isn't enough to make a complete path. --- pkgs/racket-test-core/tests/racket/serialize.rktl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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")))) ;; ----------------------------------------