diff --git a/vlib/net/ftp/ftp_test.v b/vlib/net/ftp/ftp_test.v index b48217e14b..fb354a4077 100644 --- a/vlib/net/ftp/ftp_test.v +++ b/vlib/net/ftp/ftp_test.v @@ -1,57 +1,35 @@ module main - -import ftp +import net.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') - } + defer { ftp.close() } + + assert ftp.connect('ftp.redhat.com') + assert ftp.login('ftp','ftp') + + pwd := ftp.pwd() + + ftp.cd('/') + dir_list1 := ftp.dir() or { + assert false + return + } + assert dir_list1.len > 0 + + ftp.cd('/suse/linux/enterprise/11Server/en/SAT-TOOLS/SRPMS/') + dir_list2 := ftp.dir() or { + assert false + return + } + assert dir_list2.len > 0 + + blob := ftp.get('katello-host-tools-3.3.5-8.sles11_4sat.src.rpm') or { + assert false + return + } + assert blob.len > 0 }