test/recipes/15-test_rsa.t

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