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

   1 #!perl -w
   2
   3 print "1..7\n";
   4
   5 use URI;
   6
   7 $u = URI->new('mailto:gisle@aas.no');
   8
   9 print "not " unless $u->to eq 'gisle@aas.no' &&
  10                     $u eq 'mailto:gisle@aas.no';
  11 print "ok 1\n";
  12
  13 $old = $u->to('larry@wall.org');
  14 print "not " unless $old eq 'gisle@aas.no' &&
  15                     $u->to eq 'larry@wall.org' &&
  16                     $u eq 'mailto:larry@wall.org';
  17 print "ok 2\n";
  18
  19 $u->to("?/#");
  20 print "not " unless $u->to eq "?/#" &&
  21                     $u eq 'mailto:%3F/%23';
  22 print "ok 3\n";
  23
  24 @h = $u->headers;
  25 print "not " unless @h == 2 && "@h" eq "to ?/#";
  26 print "ok 4\n";
  27
  28 $u->headers(to      => 'gisle@aas.no',
  29             cc      => 'gisle@ActiveState.com,larry@wall.org',
  30             Subject => 'How do you do?',
  31             garbage => '/;?#=&',
  32 );
  33
  34 @h = $u->headers;
  35 print "not " unless $u->to eq 'gisle@aas.no' &&
  36                     @h == 8 &&
  37                     "@h" eq 'to gisle@aas.no cc gisle@ActiveState.com,larry@wall.org Subject How do you do? garbage /;?#=&';
  38 print "ok 5\n";
  39
  40 #print "$u\n";
  41 print "not " unless $u eq 'mailto:gisle@aas.no?cc=gisle%40ActiveState.com%2Clarry%40wall.org&Subject=How+do+you+do%3F&garbage=%2F%3B%3F%23%3D%26';
  42 print "ok 6\n";
  43
  44 $u = URI->new("mailto:");
  45 $u->to("gisle");
  46 print "not " unless $u eq 'mailto:gisle';
  47 print "ok 7\n";