ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-BER-XS/t/02_simple.t
(Generate patch)

Comparing Convert-BER-XS/t/02_simple.t (file contents):
Revision 1.4 by root, Sat Apr 20 16:12:53 2019 UTC vs.
Revision 1.5 by root, Sat Apr 20 16:15:11 2019 UTC

1BEGIN { $| = 1; print "1..106\n"; } 1BEGIN { $| = 1; print "1..108\n"; }
2 2
3use common::sense; 3use common::sense;
4use Convert::BER::XS ':all'; 4use Convert::BER::XS ':all';
5 5
6our $test; 6our $test;
… …
73fail "050101", "BER_TYPE_NULL value with non-zero length"; 73fail "050101", "BER_TYPE_NULL value with non-zero length";
74 74
75roundtrip "06053305818219", [ASN_UNIVERSAL, ASN_OBJECT_IDENTIFIER, 0, "1.11.5.16665"]; 75roundtrip "06053305818219", [ASN_UNIVERSAL, ASN_OBJECT_IDENTIFIER, 0, "1.11.5.16665"];
76fail "06053305818299", "unexpected end of message buffer"; 76fail "06053305818299", "unexpected end of message buffer";
77roundtrip "0d053305818219", [ASN_UNIVERSAL, ASN_RELATIVE_OID, 0, "51.5.16665"]; 77roundtrip "0d053305818219", [ASN_UNIVERSAL, ASN_RELATIVE_OID, 0, "51.5.16665"];
78fail "0600", "OBJECT IDENTIFIER length equal to zero", "OBJECT IDENTIFIER length equal to zero";
78# first component 79# first component
79roundtrip "06022777", [ASN_UNIVERSAL, ASN_OID, 0, "0.39.119"]; 80roundtrip "06022777", [ASN_UNIVERSAL, ASN_OID, 0, "0.39.119"];
80roundtrip "06022877", [ASN_UNIVERSAL, ASN_OID, 0, "1.0.119"]; 81roundtrip "06022877", [ASN_UNIVERSAL, ASN_OID, 0, "1.0.119"];
81roundtrip "06024f77", [ASN_UNIVERSAL, ASN_OID, 0, "1.39.119"]; 82roundtrip "06024f77", [ASN_UNIVERSAL, ASN_OID, 0, "1.39.119"];
82roundtrip "06025077", [ASN_UNIVERSAL, ASN_OID, 0, "2.0.119"]; 83roundtrip "06025077", [ASN_UNIVERSAL, ASN_OID, 0, "2.0.119"];

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines