v/vlib/ftp/ftp_test.v

58 lines
965 B
V

module main
import ftp
fn test_all() {
mut ftp := ftp.new()
// ftp.rediris.org
connected := ftp.connect('ftp.redhat.com')
assert connected
if connected {
println("connected")
loggedin := ftp.login('ftp','ftp')
assert loggedin
if loggedin {
println('logged-in')
pwd := ftp.pwd()
println('pwd: $pwd')
ftp.cd('/')
folder := ftp.dir() or {
eprintln('cannot list folder')
return
}
for file in folder {
println(file)
}
ftp.cd('/suse/linux/enterprise/11Server/en/SAT-TOOLS/SRPMS/')
dir_list := ftp.dir() or {
eprintln('cannot list folder')
return
}
assert dir_list.len > 5
println('$dir_list.len files:')
for file in dir_list {
println('$file')
}
blob := ftp.get('katello-host-tools-3.3.5-8.sles11_4sat.src.rpm') or {
eprintln("couldn't download it")
return
}
assert blob.len > 1024
println('downloaded $blob.len bytes')
}
ftp.close()
}
}