From: Graham B. <gb...@us...> - 2003-05-07 09:26:40
|
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", ); |