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

   1 #!perl -w
   2
   3 print "1..6\n";
   4
   5 # Test mixing of URI and URI::WithBase objects
   6 use URI;
   7 use URI::WithBase;
   8 use URI::URL;
   9
  10 $str = "http://www.sn.no/";
  11 $rel = "path/img.gif";
  12
  13 $u  = URI->new($str);
  14 $uw = URI::WithBase->new($str, "http:");
  15 $uu = URI::URL->new($str);
  16
  17 sub Dump
  18 {
  19    require Data::Dumper;
  20    print Data::Dumper->Dump([$a, $b, $c, $d], [qw(a b c d)]);
  21 }
  22
  23 $a = URI->new($rel, $u);
  24 $b = URI->new($rel, $uw);
  25 $c = URI->new($rel, $uu);
  26 $d = URI->new($rel, $str);
  27
  28 #Dump();
  29 print "not " unless $a->isa("URI") &&
  30                     ref($b) eq ref($uw) &&
  31                     ref($c) eq ref($uu) &&
  32                     $d->isa("URI");
  33 print "ok 1\n";
  34
  35 print "not " if $b->base && $c->base;
  36 print "ok 2\n";
  37
  38 $a = URI::URL->new($rel, $u);
  39 $b = URI::URL->new($rel, $uw);
  40 $c = URI::URL->new($rel, $uu);
  41 $d = URI::URL->new($rel, $str);
  42
  43 print "not " unless ref($a) eq "URI::URL" &&
  44                     ref($b) eq "URI::URL" &&
  45                     ref($c) eq "URI::URL" &&
  46                     ref($d) eq "URI::URL";
  47 print "ok 3\n";
  48
  49 print "not " unless ref($b->base) eq ref($uw) &&
  50                     $b->base eq $uw &&
  51                     ref($c->base) eq ref($uu) &&
  52                     $c->base eq $uu &&
  53                     $d->base eq $str;
  54 print "ok 4\n";
  55
  56
  57
  58 $a = URI->new($uu, $u);
  59 $b = URI->new($uu, $uw);
  60 $c = URI->new($uu, $uu);
  61 $d = URI->new($uu, $str);
  62
  63 #Dump();
  64 print "not " unless ref($a) eq ref($b) &&
  65                     ref($b) eq ref($c) &&
  66                     ref($c) eq ref($d) &&
  67                     ref($d) eq ref($u);
  68 print "ok 5\n";
  69
  70 $a = URI::URL->new($u, $u);
  71 $b = URI::URL->new($u, $uw);
  72 $c = URI::URL->new($u, $uu);
  73 $d = URI::URL->new($u, $str);
  74
  75 print "not " unless ref($a) eq "URI::URL" &&
  76                     ref($b) eq "URI::URL" &&
  77                     ref($c) eq "URI::URL" &&
  78                     ref($d) eq "URI::URL";
  79 print "ok 6\n";