Initial project import

tools/v/vlib/net/ftp/ftp_test.v

@@ -0,0 +1,55 @@
+import net.ftp
+
+fn check_for_network(tname string) ? {
+	$if !network ? {
+		eprintln('> skipping ${tname:-20}, since `-d network` is not passed')
+		return none
+	}
+}
+
+fn test_ftp_client() {
+	check_for_network(@FN) or { return }
+	// Note: this function makes network calls to external servers,
+	// that is why it is not a very good idea to run it in CI.
+	// If you want to run it manually, use:
+	// `v -d network vlib/net/ftp/ftp_test.v`
+	mut zftp := ftp.new()
+	defer { zftp.close() or {} }
+	server := 'ftp.sunet.se:21'
+	connect_result := zftp.connect(server) or {
+		eprintln('> skipping test_ftp_client: could not connect to ${server}: ${err}')
+		return
+	}
+	assert connect_result
+	println('> connected to ${server}')
+	login_result := zftp.login('ftp', 'ftp')!
+	assert login_result
+	pwd := zftp.pwd()!
+	assert pwd.len > 0
+	zftp.cd('/')!
+	dir_list1 := zftp.dir()!
+	assert dir_list1.len > 0
+}
+
+fn test_ftp_get() ! {
+	check_for_network(@FN) or { return }
+	mut zftp := ftp.new()
+	defer { zftp.close() or {} }
+	server := 'ftp.sunet.se:21'
+	connect_result := zftp.connect(server) or {
+		eprintln('> skipping test_ftp_get: could not connect to ${server}: ${err}')
+		return
+	}
+	assert connect_result
+	println('> connected to ${server}')
+	login_result := zftp.login('ftp', 'ftp')!
+	assert login_result
+	pwd := zftp.pwd()!
+	assert pwd.len > 0
+	mut txt := zftp.get('robots.txt')!
+	assert txt[0] == 35 // first byte is # char
+	zftp.pwd()!
+	zftp.cd('pub')!
+	zftp.cd('..')!
+	zftp.get('robots.txt')!
+}