use strict;
use warnings;
-use OpenSSL::Test qw/:DEFAULT srctop_file/;
+use OpenSSL::Test qw/:DEFAULT data_file/;
setup("test_evp");
my @files = ( "evpciph.txt", "evpdigest.txt", "evpencod.txt", "evpkdf.txt",
- "evpmac.txt", "evppbe.txt", "evptests.txt" );
+ "evpmac.txt", "evppbe.txt", "evppkey.txt" );
-plan tests => length(@files);
+plan tests => scalar(@files);
foreach my $f ( @files ) {
- ok(run(test(["evp_test", srctop_file("test", "$f")])),
+ ok(run(test(["evp_test", data_file("$f")])),
"running evp_test $f");
}