[thirdparty/openssl.git] / test / recipes / 25-test_verify.t

#! /usr/bin/perl

use strict;
use warnings;

use File::Spec::Functions qw/canonpath/;
use Test::More;
use OpenSSL::Test qw/:DEFAULT top_dir top_file/;

setup("test_verify");

plan tests => 1;

note("Expect some failures and expired certificate");
ok(run(app(["openssl", "verify", "-CApath", top_dir("certs", "demo"),
	    glob(top_file("certs", "demo", "*.pem"))])), "verying demo certs");
Commit	Line	Data
4650de3e RL	1	#! /usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use File::Spec::Functions qw/canonpath/;
	7	use Test::More;
	8	use OpenSSL::Test qw/:DEFAULT top_dir top_file/;
	9
	10	setup("test_verify");
	11
	12	plan tests => 1;
	13
	14	note("Expect some failures and expired certificate");
	15	ok(run(app(["openssl", "verify", "-CApath", top_dir("certs", "demo"),
	16	glob(top_file("certs", "demo", "*.pem"))])), "verying demo certs");