1 USING: calendar ftp.server io.encodings.ascii io.files
2 io.files.unique namespaces threads tools.test kernel
3 io.servers.connection ftp.client accessors urls
4 io.pathnames io.directories sequences fry ;
5 FROM: ftp.client => ftp-get ;
8 : test-file-contents ( -- string )
9 "Files are so boring anymore." ;
11 : create-test-file ( -- path )
13 "ftp.server" "test" make-unique-file
14 [ ascii set-file-contents ] [ normalize-path ] bi ;
16 : test-ftp-server ( quot -- )
18 current-temporary-directory get 0
22 sockets>> first addr>> port>>
27 create-test-file >>path
31 ] with-unique-directory drop ; inline
38 [ ftp-get ] [ path>> file-name ascii file-contents ] bi
40 ] test-ftp-server test-file-contents =
48 [ ftp-get ] [ path>> file-name ascii file-contents ] bi
50 ] test-ftp-server test-file-contents =