fix test

2014-04-29 12:59:45 -06:00 · 2014-04-29 12:59:45 -06:00 · f58cfe596a
commit f58cfe596a
parent 04a60d713b
1 changed files with 4 additions and 1 deletions
--- a/pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt
@ -16,7 +16,10 @@
     (vector-immutable i ...)
     (string->immutable-string str) 
     (make-prefab-struct pf-type legal-message ...)
-     (string->path (string-append string "x"))
+     (string->path (string-append (if (path-string? string)
+                                      string
+                                      "?")
+                                  "x"))
     (let-values ([(a b) (place-channel)]) a)
     (let-values ([(a b) (place-channel)]) b)
     f)