test/recipes/15-test_dsa.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_dsa");
  10
  11 plan tests => 6;
  12
  13 require_ok(top_file('test','recipes','tconversion.pl'));
  14
  15 ok(run(test(["dsatest"])), "running dsatest");
  16 ok(run(test(["dsatest", "-app2_1"])), "running dsatest -app2_1");
  17
  18  SKIP: {
  19      skip "Skipping dsa conversion test", 3
  20          if run(app(["openssl","no-dsa"], stdout => undef));
  21
  22      subtest 'dsa conversions -- private key' => sub {
  23          tconversion("dsa", top_file("test","testdsa.pem"));
  24      };
  25      subtest 'dsa conversions -- private key PKCS#8' => sub {
  26          tconversion("dsa", top_file("test","testdsa.pem"), "pkey");
  27      };
  28      subtest 'dsa conversions -- public key' => sub {
  29          tconversion("dsa", top_file("test","testdsapub.pem"), "dsa",
  30                      "-pubin", "-pubout");
  31      };
  32 }