58 lines
965 B
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()
|
|
}
|
|
}
|