From 6ad9a6cdf87b861726ac9c5f0725c0da5f2c2b31 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 11 Apr 2016 08:53:03 -0500
Subject: [PATCH] avoid platform-specific problems in test case

---
 pkgs/racket-test-core/tests/racket/cm.rktl | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/pkgs/racket-test-core/tests/racket/cm.rktl b/pkgs/racket-test-core/tests/racket/cm.rktl
index dd1caeb0eb..415cac1b30 100644
--- a/pkgs/racket-test-core/tests/racket/cm.rktl
+++ b/pkgs/racket-test-core/tests/racket/cm.rktl
@@ -155,19 +155,20 @@
                           (build-path "compiled")])]
                       [else (build-path "compiled")]))])
     (managed-compile-zo (build-path dir "cpm-a.rkt")))
-  (test (hash (build-path "cpm-a.rkt") #t
-              (build-path "cpm-b.rkt") #t
-              (build-path "cpm-c.rkt") #t
-              (build-path "compiled/cpm-a_rkt.zo") #t
-              (build-path "compiled/cpm-a_rkt.dep") #t
-              (build-path "compiled/subdir/cpm-b_rkt.zo") #t
-              (build-path "compiled/subdir/cpm-b_rkt.dep") #t
-              (build-path "compiled/cpm-c_rkt.zo") #t
-              (build-path "compiled/cpm-c_rkt.dep") #t)
+  (test (hash '("cpm-a.rkt") #t
+              '("cpm-b.rkt") #t
+              '("cpm-c.rkt") #t
+              '("compiled" "cpm-a_rkt.zo") #t
+              '("compiled" "cpm-a_rkt.dep") #t
+              '("compiled" "subdir" "cpm-b_rkt.zo") #t
+              '("compiled" "subdir" "cpm-b_rkt.dep") #t
+              '("compiled" "cpm-c_rkt.zo") #t
+              '("compiled" "cpm-c_rkt.dep") #t)
         'current-path->mode
         (for/hash ([x (in-directory dir)]
                    #:when (file-exists? x))
-          (values (find-relative-path dir x) #t))))
+          (values (map path->string (explode-path (find-relative-path dir x)))
+                  #t))))
 
 ;; ----------------------------------------