use warnings;
use File::Spec::Functions qw/canonpath/;
-use OpenSSL::Test qw/:DEFAULT top_dir top_file/;
+use OpenSSL::Test qw/:DEFAULT top_file/;
setup("test_verify");
my @args = qw(openssl verify -verify_name);
my @path = qw(test certs);
push(@args, "$vname", @opts);
- for (@$trusted) { push(@args, "-trusted", top_dir(@path, "$_.pem")) }
- for (@$untrusted) { push(@args, "-untrusted", top_dir(@path, "$_.pem")) }
- push(@args, top_dir(@path, "$cert.pem"));
+ for (@$trusted) { push(@args, "-trusted", top_file(@path, "$_.pem")) }
+ for (@$untrusted) { push(@args, "-untrusted", top_file(@path, "$_.pem")) }
+ push(@args, top_file(@path, "$cert.pem"));
run(app([@args]));
}