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

Comparing Convert-BER-XS/t/05_bugs.t (file contents):
Revision 1.1 by root, Tue Apr 23 19:44:12 2019 UTC vs.
Revision 1.2 by root, Thu Apr 25 11:30:21 2019 UTC

… …
12 12
13my ($bin, $ber); 13my ($bin, $ber);
14 14
15# length 127 15# length 127
16$bin = ber_encode [0, ASN_OCTET_STRING, 0, "\x01" x 127]; 16$bin = ber_encode [0, ASN_OCTET_STRING, 0, "\x01" x 127];
17ok ($bin =~ /^\x04\x7f\x01{127}$/s, unpack "H*", $bin); 17ok ($bin =~ /^\x04\x7f\x01{127}/, unpack "H*", $bin);
18$ber = ber_decode $bin; 18$ber = ber_decode $bin;
19ok (127 == length $ber->[BER_DATA]); 19ok (127 == length $ber->[BER_DATA]);
20 20
21# internal 0-octet in length 21# internal 0-octet in length
22$bin = ber_encode [0, ASN_OCTET_STRING, 0, "\x01" x 0x10013]; 22$bin = ber_encode [0, ASN_OCTET_STRING, 0, "\x01" x 0x10013];

Diff Legend

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