Menu
▾
▴
[perl-ldap-checkins] CVS: asn/t 00prim.t,1.7,1.8 01tag.t,1.2,1.3 02seq.t,1.3,1.4 03seqof.t,1.3,1.4 04opt.t,1.2,1.3 05time.t,1.2,1.3 06bigint.t,1.5,1.6 08set.t,1.1,1.2 09contr.t,1.1,1.2 11indef.t,1.1,1.2
|
From: Graham B. <gb...@us...> - 2002-03-25 14:59:32
|
Update of /cvsroot/perl-ldap/asn/t
In directory usw-pr-cvs1:/tmp/cvs-serv9296/t
Modified Files:
00prim.t 01tag.t 02seq.t 03seqof.t 04opt.t 05time.t 06bigint.t
08set.t 09contr.t 11indef.t
Log Message:
Add more detail when tests fail
Index: 00prim.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/00prim.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- 00prim.t 10 Feb 2002 16:12:17 -0000 1.7
+++ 00prim.t 25 Mar 2002 14:59:27 -0000 1.8
@@ -47,7 +47,7 @@
print "# NULL\n";
$buf = pack("C*", 0x05, 0x00);
-btest 23, $asn->prepare(' null NULL ');
+btest 23, $asn->prepare(' null NULL ') or warn $asn->error;
stest 24, $buf, $asn->encode(null => 1) or warn $asn->error;
btest 25, $ret = $asn->decode($buf) or warn $asn->error;
btest 26, $ret->{'null'};
@@ -63,9 +63,9 @@
my $result = pack("C*", 0x01, 0x01, $val ? 0xFF : 0);
- btest $test++, $asn->prepare(' bool BOOLEAN');
- stest $test++, $result, $asn->encode(bool => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare(' bool BOOLEAN') or warn $asn->error;
+ stest $test++, $result, $asn->encode(bool => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
ntest $test++, !!$val, !!$ret->{'bool'};
}
@@ -87,9 +87,9 @@
while(($result,$val) = each %INTEGER) {
print "# INTEGER $val\n";
- btest $test++, $asn->prepare(' integer INTEGER');
- stest $test++, $result, $asn->encode(integer => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare(' integer INTEGER') or warn $asn->error;
+ stest $test++, $result, $asn->encode(integer => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
ntest $test++, $val, $ret->{integer};
}
@@ -98,8 +98,8 @@
$result = pack("C*", 0x02, 0x01, 0x09);
-stest $test++, $result, $asn->encode(9);
-btest $test++, $ret = $asn->decode($result);
+stest $test++, $result, $asn->encode(9) or warn $asn->error;
+btest $test++, $ret = $asn->decode($result) or warn $asn->error;
btest $test++, $ret == 9;
##
@@ -114,9 +114,9 @@
while(($result,$val) = each %STRING) {
print "# STRING '$val'\n";
- btest $test++, $asn->prepare('str STRING');
- stest $test++, $result, $asn->encode(str => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare('str STRING') or warn $asn->error;
+ stest $test++, $result, $asn->encode(str => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
stest $test++, $val, $ret->{'str'};
}
@@ -133,9 +133,9 @@
while(($result,$val) = each %OBJECT_ID) {
print "# OBJECT_ID $val\n";
- btest $test++, $asn->prepare('oid OBJECT IDENTIFIER');
- stest $test++, $result, $asn->encode(oid => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare('oid OBJECT IDENTIFIER') or warn $asn->error;
+ stest $test++, $result, $asn->encode(oid => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
stest $test++, $val, $ret->{'oid'};
}
@@ -152,9 +152,9 @@
while(($result,$val) = each %ENUM) {
print "# ENUM $val\n";
- btest $test++, $asn->prepare('enum ENUMERATED');
- stest $test++, $result, $asn->encode(enum => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare('enum ENUMERATED') or warn $asn->error;
+ stest $test++, $result, $asn->encode(enum => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
ntest $test++, $val, $ret->{'enum'};
}
@@ -180,9 +180,9 @@
print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val),
" ",(ref($val) ? $val->[1] : $val),"\n";
- btest $test++, $asn->prepare('bit BIT STRING');
- stest $test++, $result, $asn->encode( bit => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare('bit BIT STRING') or warn $asn->error;
+ stest $test++, $result, $asn->encode( bit => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
stest $test++, (ref($val) ? $val->[2] : $val), $ret->{'bit'}[0];
ntest $test++, (ref($val) ? $val->[1] : 8*length$val), $ret->{'bit'}[1];
@@ -204,9 +204,9 @@
while(($result,$val) = each %REAL) {
print "# REAL $val\n";
- btest $test++, $asn->prepare('real REAL');
- stest $test++, $result, $asn->encode( real => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare('real REAL') or warn $asn->error;
+ stest $test++, $result, $asn->encode( real => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
ntest $test++, $val, $ret->{'real'};
}
@@ -223,9 +223,9 @@
while(($result,$val) = each %ROID) {
print "# RELATIVE-OID $val\n";
- btest $test++, $asn->prepare('roid RELATIVE-OID');
- stest $test++, $result, $asn->encode(roid => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare('roid RELATIVE-OID') or warn $asn->error;
+ stest $test++, $result, $asn->encode(roid => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
stest $test++, $val, $ret->{'roid'};
}
Index: 01tag.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/01tag.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 01tag.t 22 May 2000 11:07:36 -0000 1.2
+++ 01tag.t 25 Mar 2002 14:59:28 -0000 1.3
@@ -9,49 +9,49 @@
print "1..21\n";
-btest 1, $asn = Convert::ASN1->new;
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
integer [0] INTEGER
-));
+)) or warn $asn->error;
$result = pack("C*", 0x80, 0x01, 0x08);
-stest 3, $result, $asn->encode(integer => 8);
-btest 4, $ret = $asn->decode($result);
+stest 3, $result, $asn->encode(integer => 8) or warn $asn->error;
+btest 4, $ret = $asn->decode($result) or warn $asn->error;
ntest 5, 8, $ret->{integer};
btest 6, $asn->prepare(q(
integer [APPLICATION 1] INTEGER
-));
+)) or warn $asn->error;
$result = pack("C*", 0x41, 0x01, 0x08);
-stest 7, $result, $asn->encode(integer => 8);
-btest 8, $ret = $asn->decode($result);
+stest 7, $result, $asn->encode(integer => 8) or warn $asn->error;
+btest 8, $ret = $asn->decode($result) or warn $asn->error;
ntest 9, 8, $ret->{integer};
btest 10, $asn->prepare(q(
integer [CONTEXT 2] INTEGER
-));
+)) or warn $asn->error;
$result = pack("C*", 0x82, 0x01, 0x08);
-stest 11, $result, $asn->encode(integer => 8);
-btest 12, $ret = $asn->decode($result);
+stest 11, $result, $asn->encode(integer => 8) or warn $asn->error;
+btest 12, $ret = $asn->decode($result) or warn $asn->error;
ntest 13, 8, $ret->{integer};
btest 14, $asn->prepare(q(
integer [UNIVERSAL 3] INTEGER
-));
+)) or warn $asn->error;
$result = pack("C*", 0x03, 0x01, 0x08);
-stest 15, $result, $asn->encode(integer => 8);
-btest 16, $ret = $asn->decode($result);
+stest 15, $result, $asn->encode(integer => 8) or warn $asn->error;
+btest 16, $ret = $asn->decode($result) or warn $asn->error;
ntest 17, 8, $ret->{integer};
btest 18, $asn->prepare(q(
integer [PRIVATE 4] INTEGER
-));
+)) or warn $asn->error;
$result = pack("C*", 0xc4, 0x01, 0x08);
-stest 19, $result, $asn->encode(integer => 8);
-btest 20, $ret = $asn->decode($result);
+stest 19, $result, $asn->encode(integer => 8) or warn $asn->error;
+btest 20, $ret = $asn->decode($result) or warn $asn->error;
ntest 21, 8, $ret->{integer};
Index: 02seq.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/02seq.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- 02seq.t 11 Jun 2001 13:04:11 -0000 1.3
+++ 02seq.t 25 Mar 2002 14:59:28 -0000 1.4
@@ -10,7 +10,7 @@
print "1..18\n";
-btest 1, $asn = Convert::ASN1->new;
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
SEQUENCE {
integer INTEGER,
@@ -23,8 +23,8 @@
0x04, 0x08, 0x41, 0x20, 0x73, 0x74, 0x72, 0x69,
0x6E, 0x67
);
-stest 3, $result, $asn->encode(integer => 1, bool => 0, str => "A string");
-btest 4, $ret = $asn->decode($result);
+stest 3, $result, $asn->encode(integer => 1, bool => 0, str => "A string") or warn $asn->error;
+btest 4, $ret = $asn->decode($result) or warn $asn->error;
ntest 5, 1, $ret->{integer};
ntest 6, 0, $ret->{bool};
stest 7, "A string", $ret->{str};
@@ -36,8 +36,8 @@
str STRING
}
)) or warn $asn->error;
-stest 9, $result, $asn->encode(seq => { integer => 1, bool => 0, str => "A string" });
-btest 10, $ret = $asn->decode($result);
+stest 9, $result, $asn->encode(seq => { integer => 1, bool => 0, str => "A string" }) or warn $asn->error;
+btest 10, $ret = $asn->decode($result) or warn $asn->error;
ntest 11, 1, $ret->{seq}{integer};
ntest 12, 0, $ret->{seq}{bool};
stest 13, "A string", $ret->{seq}{str};
@@ -53,7 +53,7 @@
real2 REAL
}
)) or warn $asn->error;
-stest 15, $result, $asn->encode( real => 6.78, real2 => 12.34);
-btest 16, $ret = $asn->decode($result);
+stest 15, $result, $asn->encode( real => 6.78, real2 => 12.34) or warn $asn->error;
+btest 16, $ret = $asn->decode($result) or warn $asn->error;
ntest 17, 6.78, $ret->{real};
ntest 18, 12.34, $ret->{real2};
Index: 03seqof.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/03seqof.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- 03seqof.t 10 Feb 2002 16:12:17 -0000 1.3
+++ 03seqof.t 25 Mar 2002 14:59:28 -0000 1.4
@@ -10,14 +10,14 @@
print "1..35\n";
-btest 1, $asn = Convert::ASN1->new;
-btest 2, $asn->prepare(' ints SEQUENCE OF INTEGER ');
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
+btest 2, $asn->prepare(' ints SEQUENCE OF INTEGER ') or warn $asn->error;
$result = pack("C*", 0x30, 0x0C, 0x02, 0x01, 0x09, 0x02, 0x01, 0x05,
0x02, 0x01, 0x03, 0x02, 0x01, 0x01);
-stest 3, $result, $asn->encode(ints => [9,5,3,1]);
-btest 4, $ret = $asn->decode($result);
+stest 3, $result, $asn->encode(ints => [9,5,3,1]) or warn $asn->error;
+btest 4, $ret = $asn->decode($result) or warn $asn->error;
btest 5, exists $ret->{'ints'};
stest 6, "9:5:3:1", join(":", @{$ret->{'ints'}});
@@ -47,9 +47,9 @@
seq => [
{ str => 'fred', val => [qw(a b c)] },
{ str => 'joe', val => [qw(q w e)] }
- ]);
+ ]) or warn $asn->error;
-btest 9, $ret = $asn->decode($result);
+btest 9, $ret = $asn->decode($result) or warn $asn->error;
ntest 10, 1, scalar keys %$ret;
btest 11, exists $ret->{'seq'};
ntest 12, 2, scalar @{$ret->{'seq'}};
@@ -58,8 +58,8 @@
stest 15, "a:b:c", join(":", @{$ret->{'seq'}[0]{'val'}});
stest 16, "q:w:e", join(":", @{$ret->{'seq'}[1]{'val'}});
-btest 17, $asn = Convert::ASN1->new;
-btest 18, $asn->prepare(<<'EOS');
+btest 17, $asn = Convert::ASN1->new or warn $asn->error;
+btest 18, $asn->prepare(<<'EOS') or warn $asn->error;
AttributeTypeAndValue ::= SEQUENCE {
type STRING,
@@ -76,7 +76,7 @@
EOS
-btest 19, $asn = $asn->find('Issuer');
+btest 19, $asn = $asn->find('Issuer') or warn $asn->error;
$result = pack("C*",
0x30, 0x26, 0x30, 0x24, 0x31, 0x10, 0x30, 0x06,
@@ -93,9 +93,9 @@
[{ type => "3", value => "c" }, { type => "4", value => "d" }],
]
}
-);
+) or warn $asn->error;
-btest 21, $ret = $asn->decode($result);
+btest 21, $ret = $asn->decode($result) or warn $asn->error;
ntest 22, 1, $ret->{issuer}{rdnSequence}[0][0]{type};
ntest 23, 2, $ret->{issuer}{rdnSequence}[0][1]{type};
@@ -108,13 +108,13 @@
stest 29, 'd', $ret->{issuer}{rdnSequence}[1][1]{value};
-btest 30, $asn = Convert::ASN1->new;
-btest 31, $asn->prepare('test ::= SEQUENCE OF INTEGER ');
+btest 30, $asn = Convert::ASN1->new or warn $asn->error;
+btest 31, $asn->prepare('test ::= SEQUENCE OF INTEGER ') or warn $asn->error;
$result = pack("C*", 0x30, 0x0C, 0x02, 0x01, 0x09, 0x02, 0x01, 0x05,
0x02, 0x01, 0x03, 0x02, 0x01, 0x01);
-stest 32, $result, $asn->encode([9,5,3,1]);
-btest 33, $ret = $asn->decode($result);
+stest 32, $result, $asn->encode([9,5,3,1]) or warn $asn->error;
+btest 33, $ret = $asn->decode($result) or warn $asn->error;
btest 34, ref($ret) eq 'ARRAY';
stest 35, "9:5:3:1", join(":", @{$ret});
Index: 04opt.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/04opt.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 04opt.t 22 May 2000 11:07:36 -0000 1.2
+++ 04opt.t 25 Mar 2002 14:59:28 -0000 1.3
@@ -9,21 +9,21 @@
print "1..12\n"; # This testcase needs more tests
-btest 1, $asn = Convert::ASN1->new;
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
integer INTEGER OPTIONAL,
str STRING
)) or warn $asn->error;
$result = pack("C*", 0x4, 0x3, ord('a'), ord('b'), ord('c'));
-stest 3, $result, $asn->encode(str => "abc");
-btest 4, $ret = $asn->decode($result);
+stest 3, $result, $asn->encode(str => "abc") or warn $asn->error;
+btest 4, $ret = $asn->decode($result) or warn $asn->error;
stest 5, "abc", $ret->{str};
btest 6, !exists $ret->{integer};
$result = pack("C*", 0x2, 0x1, 0x9, 0x4, 0x3, ord('a'), ord('b'), ord('c'));
-stest 7, $result, $asn->encode(integer => 9, str => "abc");
-btest 8, $ret = $asn->decode($result);
+stest 7, $result, $asn->encode(integer => 9, str => "abc") or warn $asn->error;
+btest 8, $ret = $asn->decode($result) or warn $asn->error;
stest 9, "abc", $ret->{str};
btest 10, exists $ret->{integer};
ntest 11, 9, $ret->{integer};
Index: 05time.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/05time.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 05time.t 26 Apr 2001 06:52:04 -0000 1.2
+++ 05time.t 25 Mar 2002 14:59:28 -0000 1.3
@@ -14,8 +14,8 @@
my $t = 1;
-btest $t++, $asn = Convert::ASN1->new;
-btest $t++, $asn->prepare('date UTCTime');
+btest $t++, $asn = Convert::ASN1->new or warn $asn->error;
+btest $t++, $asn->prepare('date UTCTime') or warn $asn->error;
my $time = 987718268; # 2001-04-19 22:11:08 GMT
my $result;
@@ -30,8 +30,8 @@
);
$asn->configure( encode => { timezone => +3600 } );
-stest $t++, $result, $asn->encode(date => $time);
-btest $t++, $ret = $asn->decode($result);
+stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
+btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};
# 2 hours ahead
@@ -43,8 +43,8 @@
);
$asn->configure( encode => { timezone => +7200 } );
-stest $t++, $result, $asn->encode(date => $time);
-btest $t++, $ret = $asn->decode($result);
+stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
+btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};
# zulu
@@ -55,14 +55,14 @@
);
$asn->configure( encode => { 'time' => 'utctime' } );
-stest $t++, $result, $asn->encode(date => $time);
-btest $t++, $ret = $asn->decode($result);
+stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
+btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};
# 1 hour ahead
-btest $t++, $asn = Convert::ASN1->new;
-btest $t++, $asn->prepare('date GeneralizedTime');
+btest $t++, $asn = Convert::ASN1->new or warn $asn->error;
+btest $t++, $asn->prepare('date GeneralizedTime') or warn $asn->error;
$result = pack("C*",
0x18, 0x13, 0x32, 0x30, 0x30, 0x31, 0x30, 0x34, 0x31, 0x39,
0x32, 0x33, 0x31, 0x31, 0x30, 0x38, 0x2B, 0x30,
@@ -70,14 +70,14 @@
);
$asn->configure( encode => { timezone => +3600 } );
-stest $t++, $result, $asn->encode(date => $time);
-btest $t++, $ret = $asn->decode($result);
+stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
+btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};
# 4 hours behind
-btest $t++, $asn = Convert::ASN1->new;
-btest $t++, $asn->prepare('date GeneralizedTime');
+btest $t++, $asn = Convert::ASN1->new or warn $asn->error;
+btest $t++, $asn->prepare('date GeneralizedTime') or warn $asn->error;
$result = pack("C*",
0x18, 0x13, 0x32, 0x30, 0x30, 0x31, 0x30, 0x34, 0x31, 0x39,
0x31, 0x38, 0x31, 0x31, 0x30, 0x38, 0x2D, 0x30,
@@ -85,8 +85,8 @@
);
$asn->configure( encode => { timezone => -14400 } );
-stest $t++, $result, $asn->encode(date => $time);
-btest $t++, $ret = $asn->decode($result);
+stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
+btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};
# fractional second
@@ -99,7 +99,7 @@
);
$asn->configure( encode => { timezone => +3600 } );
-stest $t++, $result, $asn->encode(date => $time);
-btest $t++, $ret = $asn->decode($result);
+stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
+btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};
Index: 06bigint.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/06bigint.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- 06bigint.t 21 Jan 2002 20:00:11 -0000 1.5
+++ 06bigint.t 25 Mar 2002 14:59:28 -0000 1.6
@@ -11,7 +11,7 @@
print "1..59\n";
-btest 1, $asn = Convert::ASN1->new;
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
integer INTEGER
)) or warn $asn->error;
@@ -25,37 +25,37 @@
$result = pack("C*", 0x2, 0x13, 0x30, 0xfd, 0x65, 0xc1, 0x01, 0xd9,
0xea, 0x2c, 0x94, 0x9e, 0xc5, 0x08, 0x50, 0x4a,
0x90, 0x43, 0xdb, 0x52, 0xdd);
-stest 3, $result, $asn->encode(integer => $num);
-btest 4, $ret = $asn->decode($result);
+stest 3, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 4, $ret = $asn->decode($result) or warn $asn->error;
btest 5, exists $ret->{integer};
btest 6, ref($ret->{integer}) eq 'Math::BigInt';
ntest 7, $num, $ret->{integer};
$num = (1<<17) * (1<<17);
$result = pack("C*", 0x2, 0x5, 0x4, 0x0, 0x0, 0x0, 0x0);
-stest 8, $result, $asn->encode(integer => $num);
-btest 9, $ret = $asn->decode($result);
+stest 8, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 9, $ret = $asn->decode($result) or warn $asn->error;
btest 10, exists $ret->{integer};
ntest 11, $num, $ret->{integer};
$num += 10;
$result = pack("C*", 0x2, 0x5, 0x4, 0x0, 0x0, 0x0, 0xa);
-stest 12, $result, $asn->encode(integer => $num);
-btest 13, $ret = $asn->decode($result);
+stest 12, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 13, $ret = $asn->decode($result) or warn $asn->error;
btest 14, exists $ret->{integer};
ntest 15, $num, $ret->{integer};
$num = -$num;
$result = pack("C*", 0x2, 0x5, 0xfb, 0xff, 0xff, 0xff, 0xf6);
-stest 16, $result, $asn->encode(integer => $num);
-btest 17, $ret = $asn->decode($result);
+stest 16, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 17, $ret = $asn->decode($result) or warn $asn->error;
btest 18, exists $ret->{integer};
ntest 19, $num, $ret->{integer};
$num += 10;
$result = pack("C*", 0x2, 0x5, 0xfc, 0x0, 0x0, 0x0, 0x0);
-stest 20, $result, $asn->encode(integer => $num);
-btest 21, $ret = $asn->decode($result);
+stest 20, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 21, $ret = $asn->decode($result) or warn $asn->error;
btest 22, exists $ret->{integer};
ntest 23, $num, $ret->{integer};
@@ -63,8 +63,8 @@
$result = pack("C*", 0x2, 0x13, 0xcf, 0x2, 0x9a, 0x3e, 0xfe, 0x26,
0x15, 0xd3, 0x6b, 0x61, 0x3a, 0xf7, 0xaf, 0xb5,
0x6f, 0xbc, 0x24, 0xad, 0x23);
-stest 24, $result, $asn->encode(integer => $num);
-btest 25, $ret = $asn->decode($result);
+stest 24, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 25, $ret = $asn->decode($result) or warn $asn->error;
btest 26, exists $ret->{integer};
ntest 27, $num, $ret->{integer};
@@ -74,15 +74,15 @@
$result = pack("C*", 0x2, 0x15, 0x00, 0xe9, 0x8a, 0x5e, 0xb8, 0x3a,
0xfa, 0x3d, 0x4, 0x13, 0x7d, 0x19, 0xfc, 0x39,
0x36, 0xa3, 0x2b, 0xd2, 0x22, 0x06, 0xc7);
-stest 28, $result, $asn->encode(integer => $num);
-btest 29, $ret = $asn->decode($result);
+stest 28, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 29, $ret = $asn->decode($result) or warn $asn->error;
btest 30, exists $ret->{integer};
ntest 31, $num, $ret->{integer};
$num = Math::BigInt->new(-1 * (1<<24)) * Math::BigInt->new(1<<24);
$result = pack("C*", 0x2, 0x7, 0xff, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0);
-stest 32, $result, $asn->encode(integer => $num);
-btest 33, $ret = $asn->decode($result);
+stest 32, $result, $asn->encode(integer => $num) or warn $asn->error;
+btest 33, $ret = $asn->decode($result) or warn $asn->error;
btest 34, exists $ret->{integer};
ntest 35, $num, $ret->{integer};
@@ -100,9 +100,9 @@
while(($result,$val) = each %INTEGER) {
print "# INTEGER $val\n";
- btest $test++, $asn->prepare(' integer INTEGER');
- stest $test++, $result, $asn->encode(integer => $val);
- btest $test++, $ret = $asn->decode($result);
+ btest $test++, $asn->prepare(' integer INTEGER') or warn $asn->error;
+ stest $test++, $result, $asn->encode(integer => $val) or warn $asn->error;
+ btest $test++, $ret = $asn->decode($result) or warn $asn->error;
ntest $test++, $val, $ret->{integer};
}
Index: 08set.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/08set.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 08set.t 10 Sep 2001 14:35:22 -0000 1.1
+++ 08set.t 25 Mar 2002 14:59:28 -0000 1.2
@@ -10,7 +10,7 @@
print "1..13\n";
-btest 1, $asn = Convert::ASN1->new;
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
SET {
integer INTEGER,
@@ -23,14 +23,14 @@
0x04, 0x08, 0x41, 0x20, 0x73, 0x74, 0x72, 0x69,
0x6E, 0x67
);
-stest 3, $result, $asn->encode(integer => 9, bool => 0, str => "A string");
+stest 3, $result, $asn->encode(integer => 9, bool => 0, str => "A string") or warn $asn->error;
btest 4, $ret = $asn->decode($result) or warn $asn->error;
ntest 5, 9, $ret->{integer};
ntest 6, 0, $ret->{bool};
stest 7, "A string", $ret->{str};
-btest 8, $asn = Convert::ASN1->new;
+btest 8, $asn = Convert::ASN1->new or warn $asn->error;
btest 9, $asn->prepare(q(
SET {
bool BOOLEAN,
Index: 09contr.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/09contr.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 09contr.t 10 Sep 2001 14:35:22 -0000 1.1
+++ 09contr.t 25 Mar 2002 14:59:28 -0000 1.2
@@ -1,7 +1,7 @@
#!/usr/local/bin/perl
#
-# Test the use of sets
+# Test the decode on constructed values
#
use Convert::ASN1;
@@ -10,7 +10,7 @@
print "1..4\n";
-btest 1, $asn = Convert::ASN1->new;
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
str STRING
)) or warn $asn->error;
Index: 11indef.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/11indef.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 11indef.t 25 Mar 2002 09:06:18 -0000 1.1
+++ 11indef.t 25 Mar 2002 14:59:28 -0000 1.2
@@ -11,18 +11,17 @@
print "1..7\n";
-btest 1, $asn = Convert::ASN1->new;
-btest 2, $asn->prepare( <<'[TheEnd]' );
-GroupOfThis ::= [1] OCTET STRING
-GroupOfThat ::= [2] OCTET STRING
-Item ::= [3] SEQUENCE {
- aGroup GroupOfThis OPTIONAL,
- bGroup GroupOfThat OPTIONAL
-}
-Items ::= [4] SEQUENCE OF Item
-List ::= [5] SEQUENCE { list Items }
-
-[TheEnd]
+btest 1, $asn = Convert::ASN1->new or warn $asn->error;
+btest 2, $asn->prepare(q(
+ GroupOfThis ::= [1] OCTET STRING
+ GroupOfThat ::= [2] OCTET STRING
+ Item ::= [3] SEQUENCE {
+ aGroup GroupOfThis OPTIONAL,
+ bGroup GroupOfThat OPTIONAL
+ }
+ Items ::= [4] SEQUENCE OF Item
+ List ::= [5] SEQUENCE { list Items }
+)) or warn $asn->error;
my $buf = pack( 'C*',
0xa5, 0x80,
@@ -38,13 +37,13 @@
0x82, 0x03, ( ord('D') ) x 3,
@zz,
@zz,
- @zz, );
+ @zz,
+);
my $nl = $asn->find( 'List' );
-my $seq = $nl->decode( $buf );
+my $seq = $nl->decode( $buf ) or warn $asn->error;
btest 3, defined( $seq ) && exists( $seq->{list} );
-stest 4, $seq->{list}->[0]->{aGroup}, 'AAA';
-stest 5, $seq->{list}->[1]->{bGroup}, 'BBB';
-stest 6, $seq->{list}->[2]->{aGroup}, 'CCC';
-stest 7, $seq->{list}->[2]->{bGroup}, 'DDD';
-
+stest 4, 'AAA', $seq->{list}->[0]->{aGroup};
+stest 5, 'BBB', $seq->{list}->[1]->{bGroup};
+stest 6, 'CCC', $seq->{list}->[2]->{aGroup};
+stest 7, 'DDD', $seq->{list}->[2]->{bGroup};
|
