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

This reverts commit fda3024fe96129b81b4fab270ae478d8e705e0b3.

diff --git a/basis/ftp/server/server-tests.factor b/basis/ftp/server/server-tests.factor
index e932051108a4836e5762c16d9971bbc105858b0d..b37f31b342f8d087d8e3922ed76f7036c1258fee 100644 (file)
--- a/basis/ftp/server/server-tests.factor
+++ b/basis/ftp/server/server-tests.factor
@@ -1,13 +1,12 @@
-USING: accessors fry ftp.server io.backend io.encodings.ascii
-io.files io.pathnames io.servers kernel tools.test urls ;
+USING: accessors fry ftp.server 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" normalize-path
-    [ ascii set-file-contents ] keep ;
+    test-file-contents "ftp.server" [ ascii set-file-contents ] keep ;
 
 : test-ftp-server ( quot: ( server path -- ) -- )
     '[