[thirdparty/openssl.git] / test / recipes / 70-test_verify_extra.t

#! /usr/bin/perl

use OpenSSL::Test qw/:DEFAULT top_file/;

setup("test_verify_extra");

plan tests => 1;

ok(run(test(["verify_extra_test",
             top_file("test", "certs", "roots.pem"),
             top_file("test", "certs", "untrusted.pem"),
             top_file("test", "certs", "bad.pem")])));
Commit	Line	Data
2a74b62e RL	1	#! /usr/bin/perl
2a74b62e RL	2
6b33d106	3	use OpenSSL::Test qw/:DEFAULT top_file/;
2a74b62e	4
6b33d106 RL	5	setup("test_verify_extra");
	6
	7	plan tests => 1;
	8
	9	ok(run(test(["verify_extra_test",
	10	top_file("test", "certs", "roots.pem"),
	11	top_file("test", "certs", "untrusted.pem"),
	12	top_file("test", "certs", "bad.pem")])));