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