use Math::BigInt;
-use OpenSSL::Test qw/:DEFAULT srctop_file/;
+use OpenSSL::Test qw/:DEFAULT data_file/;
setup("test_bn");
plan tests => 1 + scalar(@files);
foreach my $f ( @files ) {
- ok(run(test(["bntest", srctop_file("test", $f)])),
+ ok(run(test(["bntest", data_file($f)])),
"running bntest $f");
}
ok(run(test(["bntest"])), "running bntest");
use strict;
use warnings;
-use OpenSSL::Test qw/:DEFAULT srctop_file/;
+use OpenSSL::Test qw/:DEFAULT data_file/;
setup("test_evp");
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");
}