git.maemo.org Git - pkg-perl/blob - deb-src/liburi-perl/liburi-perl-1.35.dfsg.1/t/ftp.t

   1 #!perl -w
   2
   3 print "1..13\n";
   4
   5 use strict;
   6 use URI;
   7 my $uri;
   8
   9 $uri = URI->new("ftp://ftp.example.com/path");
  10
  11 print "not " unless $uri->scheme eq "ftp";
  12 print "ok 1\n";
  13
  14 print "not " unless $uri->host eq "ftp.example.com";
  15 print "ok 2\n";
  16
  17 print "not " unless $uri->port eq 21;
  18 print "ok 3\n";
  19
  20 print "not " unless $uri->user eq "anonymous";
  21 print "ok 4\n";
  22
  23 print "not " unless $uri->password eq 'anonymous@';
  24 print "ok 5\n";
  25
  26 $uri->userinfo("gisle\@aas.no");
  27
  28 print "not " unless $uri eq "ftp://gisle%40aas.no\@ftp.example.com/path";
  29 print "ok 6\n";
  30
  31 print "not " unless $uri->user eq "gisle\@aas.no";
  32 print "ok 7\n";
  33
  34 print "not " if defined($uri->password);
  35 print "ok 8\n";
  36
  37 $uri->password("secret");
  38
  39 print "not " unless $uri eq "ftp://gisle%40aas.no:secret\@ftp.example.com/path";
  40 print "ok 9\n";
  41
  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";
  44 print "ok 10\n";
  45
  46 print "not " unless $uri->userinfo eq "gisle\@aas.no:secret";
  47 print "ok 11\n";
  48
  49 print "not " unless $uri->user eq "gisle\@aas.no";
  50 print "ok 12\n";
  51
  52 print "not " unless $uri->password eq "secret";
  53 print "ok 13\n";