diff options
Diffstat (limited to 'test/recipes/80-test_ca.t')
| -rw-r--r-- | test/recipes/80-test_ca.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/test/recipes/80-test_ca.t b/test/recipes/80-test_ca.t index e97a83f..97e44c8 100644 --- a/test/recipes/80-test_ca.t +++ b/test/recipes/80-test_ca.t @@ -5,24 +5,24 @@ use warnings; use POSIX; use File::Path 2.00 qw/remove_tree/; -use OpenSSL::Test qw/:DEFAULT cmdstr top_file/; +use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file/; setup("test_ca"); $ENV{OPENSSL} = cmdstr(app(["openssl"])); -my $std_openssl_cnf = $^O eq "VMS" - ? top_file("apps", "openssl-vms.cnf") : top_file("apps", "openssl.cnf"); +my $std_openssl_cnf = + srctop_file("apps", $^O eq "VMS" ? "openssl-vms.cnf" : "openssl.cnf"); remove_tree("demoCA", { safe => 0 }); plan tests => 4; SKIP: { - $ENV{OPENSSL_CONFIG} = "-config ".top_file("test", "CAss.cnf"); + $ENV{OPENSSL_CONFIG} = "-config ".srctop_file("test", "CAss.cnf"); skip "failed creating CA structure", 3 if !ok(run(perlapp(["CA.pl","-newca"], stdin => undef, stderr => undef)), 'creating CA structure'); - $ENV{OPENSSL_CONFIG} = "-config ".top_file("test", "Uss.cnf"); + $ENV{OPENSSL_CONFIG} = "-config ".srctop_file("test", "Uss.cnf"); skip "failed creating new certificate request", 2 if !ok(run(perlapp(["CA.pl","-newreq"], stderr => undef)), 'creating CA structure'); @@ -49,3 +49,4 @@ sub yes { close PIPE; return 0; } + |