v/vlib/net/ftp/ftp_test.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()
	}
}