Package list libcryptx-perl / b933f61
a test for ecc_import_pkcs8 bug Karel Miko 3 years ago
1 changed file(s) with 11 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
00 use strict;
11 use warnings;
22
3 use Test::More tests => 662;
3 use Test::More tests => 663;
44 use Crypt::PK::ECC;
55
66 my $data = [
109109 my $pk = Crypt::PK::ECC->new(\$der);
110110 ok($pk->is_private, "der_length_custom_type bug");
111111 }
112
113 ### ecc_import_pkcs8 bug
114 {
115 my $der = pack("H*", "308193020100301306072a8648ce3d020106082a8648ce3d030107047930770201010420052f2b26".
116 "1d38522126f6a49cbdb958d5af85ed2c9e8cfebff85c44f20fe89a0fa00a06082a8648ce3d030107".
117 "a144034200043998011b129539269423f531808ed0854bef5b93d00aad8438742c1d272c24ca8649".
118 "e07f17da47c07453183fe35b68d069b700c38cc61dd5d98eb92dc474b573");
119 my $pk = Crypt::PK::ECC->new(\$der);
120 ok($pk->is_private, "ecc_import_pkcs8 bug");
121 }