ftp.server: make sure the test file returns a normalized path.

diff --git a/basis/ftp/server/server-tests.factor b/basis/ftp/server/server-tests.factor
index b37f31b342f8d087d8e3922ed76f7036c1258fee..e932051108a4836e5762c16d9971bbc105858b0d 100644 (file)
--- a/basis/ftp/server/server-tests.factor
+++ b/basis/ftp/server/server-tests.factor
@@ -1,12 +1,13 @@
-USING: accessors fry ftp.server io.encodings.ascii io.files
-io.pathnames io.servers kernel tools.test urls ;
+USING: accessors fry ftp.server io.backend io.encodings.ascii
+io.files io.pathnames io.servers kernel tools.test urls ;
 FROM: ftp.client => ftp-get ;
 IN: ftp.server.tests
 
 CONSTANT: test-file-contents "Files are so boring anymore."
 
 : create-test-file ( -- path )
-    test-file-contents "ftp.server" [ ascii set-file-contents ] keep ;
+    test-file-contents "ftp.server" normalize-path
+    [ ascii set-file-contents ] keep ;
 
 : test-ftp-server ( quot: ( server path -- ) -- )
     '[