libcryptx-perl/t/pk_enc_pem.t
2018-03-22 15:51:09 +01:00

23 lines
853 B
Perl

use strict;
use warnings;
use Test::More tests => 27;
use Crypt::PK::RSA;
use Crypt::PK::DSA;
use Crypt::PK::ECC;
for my $f (qw/rsa-aes128.pem rsa-aes192.pem rsa-aes256.pem rsa-des.pem rsa-des3.pem rsa-seed.pem rsa-camellia128.pem rsa-camellia192.pem rsa-camellia256.pem/) {
my $pk = Crypt::PK::RSA->new("t/data/$f", 'secret');
is($pk->is_private, 1, $f);
}
for my $f (qw/dsa-aes128.pem dsa-aes192.pem dsa-aes256.pem dsa-des.pem dsa-des3.pem dsa-seed.pem dsa-camellia128.pem dsa-camellia192.pem dsa-camellia256.pem/) {
my $pk = Crypt::PK::DSA->new("t/data/$f", 'secret');
is($pk->is_private, 1, $f);
}
for my $f (qw/ec-aes128.pem ec-aes192.pem ec-aes256.pem ec-camellia128.pem ec-camellia192.pem ec-camellia256.pem ec-des.pem ec-des3.pem ec-seed.pem/) {
my $pk = Crypt::PK::ECC->new("t/data/$f", 'secret');
is($pk->is_private, 1, $f);
}