steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This reverts commit fda3024fe9.
locals-and-roots
John Benediktsson 2016-04-13 13:06:05 -07:00
parent fda3024fe9
commit 923cb0127a
1 changed files with 3 additions and 4 deletions
basis/ftp/server

7
basis/ftp/server/server-tests.factor
View File

@ -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 -- ) -- )
'[