t/pk_enc_pem.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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);
}