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

   1 #!perl -w
   2
   3 print "1..4\n";
   4
   5 use strict;
   6 use URI;
   7
   8 my $u = URI->new("urn:oid");
   9
  10 $u->oid(1..10);
  11
  12 #print "$u\n";
  13
  14 print "not " unless $u eq "urn:oid:1.2.3.4.5.6.7.8.9.10";
  15 print "ok 1\n";
  16
  17 print "not " unless $u->oid eq "1.2.3.4.5.6.7.8.9.10";
  18 print "ok 2\n";
  19
  20 print "not " unless $u->scheme eq "urn" && $u->nid eq "oid";
  21 print "ok 3\n";
  22
  23 print "not " unless $u->oid eq $u->nss;
  24 print "ok 4\n";