7 $u = URI->new('pop://aas@pop.sn.no');
9 print "not " unless $u->user eq "aas" &&
11 $u->host eq "pop.sn.no" &&
13 $u eq 'pop://aas@pop.sn.no';
17 print "not " unless $u->auth eq "+APOP" &&
18 $u eq 'pop://aas;AUTH=+APOP@pop.sn.no';
22 print "not " unless $u->user eq "gisle" &&
23 $u eq 'pop://gisle;AUTH=+APOP@pop.sn.no';
27 print "not " unless $u eq 'pop://gisle;AUTH=+APOP@pop.sn.no:4000';
30 $u = URI->new("pop:");
31 $u->host("pop.sn.no");
34 print "not " unless $u eq 'pop://aas;AUTH=*@pop.sn.no';
38 print "not " unless $u eq 'pop://aas@pop.sn.no';
42 print "not " unless $u eq 'pop://pop.sn.no';
45 # Try some funny characters too
47 print "not " unless $u->user eq 'får;k@l' &&
48 $u eq 'pop://f%E5r%3Bk%40l@pop.sn.no';