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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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