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

Comparing Convert-BER-XS/t/03_security.t (file contents):
Revision 1.1 by root, Sun Apr 21 01:51:12 2019 UTC vs.
Revision 1.2 by root, Sun Apr 21 01:58:15 2019 UTC

1BEGIN { $| = 1; print "1..806\n"; } 1BEGIN { $| = 1; print "1..807\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;
… …
32ok ( eval { ber_decode pack "CCa*a*", 2, $uvsize + 1, "\x00\x80", "\x00" x ($uvsize - 1) }); 32ok ( eval { ber_decode pack "CCa*a*", 2, $uvsize + 1, "\x00\x80", "\x00" x ($uvsize - 1) });
33ok ( eval { ber_decode pack "CCa*a*", 2, $uvsize , "\x01\x00", "\x00" x ($uvsize - 2) }); 33ok ( eval { ber_decode pack "CCa*a*", 2, $uvsize , "\x01\x00", "\x00" x ($uvsize - 2) });
34ok (!eval { ber_decode pack "CCa*a*", 2, $uvsize + 1, "\x01\x00", "\x00" x ($uvsize - 1) }); 34ok (!eval { ber_decode pack "CCa*a*", 2, $uvsize + 1, "\x01\x00", "\x00" x ($uvsize - 1) });
35ok ( eval { ber_decode pack "CCa*a*", 2, $uvsize , "\x80\x00", "\x00" x ($uvsize - 2) }); 35ok ( eval { ber_decode pack "CCa*a*", 2, $uvsize , "\x80\x00", "\x00" x ($uvsize - 2) });
36ok (!eval { ber_decode pack "CCa*a*", 2, $uvsize + 1, "\x80\x00", "\x00" x ($uvsize - 1) }); 36ok (!eval { ber_decode pack "CCa*a*", 2, $uvsize + 1, "\x80\x00", "\x00" x ($uvsize - 1) });
37
38# would be nice, if, but not yet
39# 2.25.24197857203266734864793317670504947440
40ok (!eval { ber_decode pack"H*","061369A4B4AB9E93ABE6FBE0929A95CF89D5F3BD70" });

Diff Legend

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