9 $uri = URI->new("ftp://ftp.example.com/path");
11 print "not " unless $uri->scheme eq "ftp";
14 print "not " unless $uri->host eq "ftp.example.com";
17 print "not " unless $uri->port eq 21;
20 print "not " unless $uri->user eq "anonymous";
23 print "not " unless $uri->password eq 'anonymous@';
26 $uri->userinfo("gisle\@aas.no");
28 print "not " unless $uri eq "ftp://gisle%40aas.no\@ftp.example.com/path";
31 print "not " unless $uri->user eq "gisle\@aas.no";
34 print "not " if defined($uri->password);
37 $uri->password("secret");
39 print "not " unless $uri eq "ftp://gisle%40aas.no:secret\@ftp.example.com/path";
42 $uri = URI->new("ftp://gisle\@aas.no:secret\@ftp.example.com/path");
43 print "not " unless $uri eq "ftp://gisle\@aas.no:secret\@ftp.example.com/path";
46 print "not " unless $uri->userinfo eq "gisle\@aas.no:secret";
49 print "not " unless $uri->user eq "gisle\@aas.no";
52 print "not " unless $uri->password eq "secret";