Fetching contributors…
Cannot retrieve contributors at this time
25 lines (15 sloc) 398 Bytes
use strict;
use warnings;
print "1..4\n";
use URI;
my $u = URI->new("urn:oid");
$u->oid(1..10);
#print "$u\n";
print "not " unless $u eq "urn:oid:1.2.3.4.5.6.7.8.9.10";
print "ok 1\n";
print "not " unless $u->oid eq "1.2.3.4.5.6.7.8.9.10";
print "ok 2\n";
print "not " unless $u->scheme eq "urn" && $u->nid eq "oid";
print "ok 3\n";
print "not " unless $u->oid eq $u->nss;
print "ok 4\n";