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

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

locals-and-roots
John Benediktsson 2016-04-13 09:29:55 -07:00
parent c2311f2d1d
commit fda3024fe9
1 changed files with 4 additions and 3 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,12 +1,13 @@
USING: accessors fry ftp.server io.encodings.ascii io.files USING: accessors fry ftp.server io.backend io.encodings.ascii
io.pathnames io.servers kernel tools.test urls ; io.files 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" [ ascii set-file-contents ] keep ; test-file-contents "ftp.server" normalize-path
[ ascii set-file-contents ] keep ;
: test-ftp-server ( quot: ( server path -- ) -- ) : test-ftp-server ( quot: ( server path -- ) -- )
'[ '[