blob: d35e5241e1bfd1578230c6751e37b942ba930c80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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";
|
