Codebase list libcryptx-perl / 7d63438
new ecc key load test Karel Miko 9 years ago
2 changed file(s) with 13 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
+5
-0
t/data/openssl_ec-short.pem less more
0 -----BEGIN EC PRIVATE KEY-----
1 MHcCAQEEIBG1c3z52T8XwMsahGVdOZWgKCQJfv+l7djuJjgetdbDoAoGCCqGSM49
2 AwEHoUQDQgAEoBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxG+9DLFmRSM
3 lBQ9T/RsLLc+PmpB1+7yPAR+oR5gZn3kJQ==
4 -----END EC PRIVATE KEY-----
+8
-0
t/pk_ecc.t less more
115115 is(unpack("H*",$ss1), unpack("H*",$ss2), 'shared_secret');
116116 }
117117
118 {
119 my $k = Crypt::PK::ECC->new('t/data/openssl_ec-short.pem');
120 ok($k, 'load openssl_ec-short.pem');
121 ok($k->is_private, 'is_private openssl_ec-short.pem');
122 is($k->size, 32, 'size');
123 is(uc($k->key2hash->{pub_x}), 'C068B754877A4AB328A569BAC6D464A81B17E527D2D652572ABB11BDA3572D50', 'key2hash');
124 }
125
118126 done_testing;⏎