move ftp to net/ftp

vlib/net/ftp/ftp_test.v

@@ -0,0 +1,57 @@
+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()
+	}
+}