test/recipes/25-test_req.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
   9 setup("test_req");
  10
  11 plan tests => 3;
  12
  13 require_ok(srctop_file('test','recipes','tconversion.pl'));
  14
  15 my @openssl_args = ("req", "-config", srctop_file("apps", "openssl.cnf"));
  16
  17 run_conversion('req conversions',
  18                "testreq.pem");
  19 run_conversion('req conversions -- testreq2',
  20                "testreq2.pem");
  21
  22 sub run_conversion {
  23     my $title = shift;
  24     my $reqfile = shift;
  25
  26     subtest $title => sub {
  27         run(app(["openssl", @openssl_args,
  28                  "-in", $reqfile, "-inform", "p",
  29                  "-noout", "-text"],
  30                 stderr => "req-check.err", stdout => undef));
  31         open DATA, "req-check.err";
  32       SKIP: {
  33           plan skip_all => "skipping req conversion test for $reqfile"
  34               if grep /Unknown Public Key/, map { s/\R//; } <DATA>;
  35
  36           tconversion("req", "testreq.pem", @openssl_args);
  37         }
  38         close DATA;
  39         unlink "req-check.err";
  40
  41         done_testing();
  42     };
  43 }