Revert "ftp.server: make sure the test file returns a normalized path."
This reverts commit fda3024fe9
.
locals-and-roots
parent
fda3024fe9
commit
923cb0127a
|
@ -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 -- ) -- )
|
||||||
'[
|
'[
|
||||||
|
|
Loading…
Reference in New Issue