Home | History | Annotate | Line # | Download | only in recipes 
      1 #! /usr/bin/env perl
      2 # Copyright 2015-2023 The OpenSSL Project Authors. All Rights Reserved.
      3 #
      4 # Licensed under the Apache License 2.0 (the "License").  You may not use
      5 # this file except in compliance with the License.  You can obtain a copy
      6 # in the file LICENSE in the source distribution or at
      7 # https://www.openssl.org/source/license.html
      8 
      9 
     10 use strict;
     11 use warnings;
     12 
     13 use File::Spec;
     14 use OpenSSL::Test qw/:DEFAULT srctop_file data_file/;
     15 
     16 setup("test_pkcs7");
     17 
     18 plan tests => 7;
     19 
     20 require_ok(srctop_file('test','recipes','tconversion.pl'));
     21 
     22 my @path = qw(test certs);
     23 my $pemfile = "grfc.pem";
     24 my $p7file = "grfc.p7b";
     25 my $out = "grfc.out";
     26 
     27 subtest 'pkcs7 conversions -- pkcs7' => sub {
     28     tconversion( -type => 'p7', -in => srctop_file("test", "testp7.pem"),
     29                  -args => ["pkcs7"] );
     30 };
     31 subtest 'pkcs7 conversions -- pkcs7d' => sub {
     32     tconversion( -type => 'p7d', -in => srctop_file("test", "pkcs7-1.pem"),
     33                  -args => ["pkcs7"] );
     34 };
     35 ok(run(app(["openssl", "crl2pkcs7", "-nocrl",
     36             "-certfile", srctop_file(@path, $pemfile),
     37             "-out", $p7file])));
     38 ok(run(app(["openssl", "pkcs7", "-print_certs", "-quiet",
     39             "-in", $p7file,
     40             "-out", $out])));
     41 is(cmp_text($out, data_file('grfc.out')),
     42     0, 'Comparing output');
     43 
     44 my $malformed = data_file('malformed.pkcs7');
     45 ok(run(app(["openssl", "pkcs7", "-in", $malformed])));
     46