1e1051a39Sopenharmony_ci#! /usr/bin/env perl 2e1051a39Sopenharmony_ci# Copyright 2015-2023 The OpenSSL Project Authors. All Rights Reserved. 3e1051a39Sopenharmony_ci# 4e1051a39Sopenharmony_ci# Licensed under the Apache License 2.0 (the "License"). You may not use 5e1051a39Sopenharmony_ci# this file except in compliance with the License. You can obtain a copy 6e1051a39Sopenharmony_ci# in the file LICENSE in the source distribution or at 7e1051a39Sopenharmony_ci# https://www.openssl.org/source/license.html 8e1051a39Sopenharmony_ci 9e1051a39Sopenharmony_ci 10e1051a39Sopenharmony_ciuse strict; 11e1051a39Sopenharmony_ciuse warnings; 12e1051a39Sopenharmony_ci 13e1051a39Sopenharmony_ciuse File::Spec; 14e1051a39Sopenharmony_ciuse OpenSSL::Test qw/:DEFAULT srctop_file data_file/; 15e1051a39Sopenharmony_ci 16e1051a39Sopenharmony_cisetup("test_pkcs7"); 17e1051a39Sopenharmony_ci 18e1051a39Sopenharmony_ciplan tests => 4; 19e1051a39Sopenharmony_ci 20e1051a39Sopenharmony_cirequire_ok(srctop_file('test','recipes','tconversion.pl')); 21e1051a39Sopenharmony_ci 22e1051a39Sopenharmony_cisubtest 'pkcs7 conversions -- pkcs7' => sub { 23e1051a39Sopenharmony_ci tconversion( -type => 'p7', -in => srctop_file("test", "testp7.pem"), 24e1051a39Sopenharmony_ci -args => ["pkcs7"] ); 25e1051a39Sopenharmony_ci}; 26e1051a39Sopenharmony_cisubtest 'pkcs7 conversions -- pkcs7d' => sub { 27e1051a39Sopenharmony_ci tconversion( -type => 'p7d', -in => srctop_file("test", "pkcs7-1.pem"), 28e1051a39Sopenharmony_ci -args => ["pkcs7"] ); 29e1051a39Sopenharmony_ci}; 30e1051a39Sopenharmony_ci 31e1051a39Sopenharmony_cimy $malformed = data_file('malformed.pkcs7'); 32e1051a39Sopenharmony_ciok(run(app(["openssl", "pkcs7", "-in", $malformed]))); 33