git.maemo.org Git - dh-make-perl/blob - dev/arm/liburi-perl/liburi-perl-1.35.dfsg.1/t/mms.t

   1 #!perl -w
   2
   3 print "1..8\n";
   4
   5 use URI;
   6
   7 $u = URI->new("<mms://66.250.188.13/KFOG_FM>");
   8
   9 #print "$u\n";
  10 print "not " unless $u eq "mms://66.250.188.13/KFOG_FM";
  11 print "ok 1\n";
  12
  13 print "not " unless $u->port == 1755;
  14 print "ok 2\n";
  15
  16 # play with port
  17 $old = $u->port(8755);
  18 print "not " unless $old == 1755 && $u eq "mms://66.250.188.13:8755/KFOG_FM";
  19 print "ok 3\n";
  20
  21 $u->port(1755);
  22 print "not " unless $u eq "mms://66.250.188.13:1755/KFOG_FM";
  23 print "ok 4\n";
  24
  25 $u->port("");
  26 print "not " unless $u eq "mms://66.250.188.13:/KFOG_FM" && $u->port == 1755;
  27 print "ok 5\n";
  28
  29 $u->port(undef);
  30 print "not " unless $u eq "mms://66.250.188.13/KFOG_FM";
  31 print "ok 6\n";
  32
  33 print "not " unless $u->host eq "66.250.188.13";
  34 print "ok 7\n";
  35
  36 print "not " unless $u->path eq "/KFOG_FM";
  37 print "ok 8\n";