From fda3024fe96129b81b4fab270ae478d8e705e0b3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 13 Apr 2016 09:29:55 -0700 Subject: [PATCH] ftp.server: make sure the test file returns a normalized path. --- basis/ftp/server/server-tests.factor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/ftp/server/server-tests.factor b/basis/ftp/server/server-tests.factor index b37f31b342..e932051108 100644 --- 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 -- ) -- ) '[