Update of /cvsroot/perl-ldap/asn/t
In directory sc8-pr-cvs1:/tmp/cvs-serv8372/t
Modified Files:
00prim.t
Log Message:
Fix OID decoding
Index: 00prim.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/00prim.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- 00prim.t 25 Mar 2002 14:59:27 -0000 1.8
+++ 00prim.t 7 May 2003 09:26:37 -0000 1.9
@@ -6,7 +6,7 @@
use Convert::ASN1 qw(:all);
-print "1..150\n";
+print "1..158\n";
BEGIN { require 't/funcs.pl' }
@@ -127,6 +127,7 @@
my %OBJECT_ID = (
pack("C*", 0x06, 0x04, 0x2A, 0x03, 0x04, 0x05), "1.2.3.4.5",
pack("C*", 0x06, 0x03, 0x55, 0x83, 0x49), "2.5.457",
+ pack("C*", 0x06, 0x07, 0x00, 0x11, 0x86, 0x05, 0x01, 0x01, 0x01), "0.0.17.773.1.1.1",
);
@@ -217,6 +218,7 @@
my %ROID = (
pack("C*", 0x0D, 0x05, 0x01, 0x02, 0x03, 0x04, 0x05), "1.2.3.4.5",
pack("C*", 0x0D, 0x04, 0x02, 0x05, 0x83, 0x49), "2.5.457",
+ pack("C*", 0x0D, 0x08, 0x00, 0x00, 0x11, 0x86, 0x05, 0x01, 0x01, 0x01), "0.0.17.773.1.1.1",
);
|
