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