test/recipes/15-test_rsa.t

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Spec;
   7 use Test::More;
   8 use OpenSSL::Test qw/:DEFAULT top_file/;
   9
  10 setup("test_rsa");
  11
  12 plan tests => 5;
  13
  14 require_ok(top_file('test','recipes','tconversion.pl'));
  15
  16 ok(run(test(["rsa_test"])), "running rsatest");
  17
  18  SKIP: {
  19      skip "Skipping rsa conversion test", 3
  20          if run(app(["openssl","no-rsa"], stdout => undef));
  21
  22      subtest 'rsa conversions -- private key' => sub {
  23          tconversion("rsa", top_file("test","testrsa.pem"));
  24      };
  25      subtest 'rsa conversions -- private key PKCS#8' => sub {
  26          tconversion("rsa", top_file("test","testrsa.pem"), "pkey");
  27      };
  28      subtest 'rsa conversions -- public key' => sub {
  29          tconversion("rsa", top_file("test","testrsapub.pem"), "rsa",
  30                      "-pubin", "-pubout");
  31      };
  32 }