generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rework 00-test_checkexes.t for VMS

Browse Source 
Unfortunately, a file spec with character range globs interfere with
paths on VMS, and are therefore disabled.  Rework this test to collect
a list of expected tests and a list of all recipes and compare the two
using grep.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2015-04-30 19:38:47 +02:00
parent f5098edb14
commit 8368d46bca
1 changed files with 26 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
test/recipes/00-check_testexes.t
View File

@ -3,6 +3,7 @@
use strict;
use File::Spec::Functions;
use File::Basename;
use OpenSSL::Test qw/:DEFAULT top_file/;
setup("check_testexes");
@ -10,51 +11,35 @@ setup("check_testexes");
my $MINFO = top_file("MINFO");
SKIP: {
my %foundfiles;
my $numtests = 1;
skip "because $MINFO not found. If you want this test to run, please do 'perl util/mkfiles.pl > $MINFO'"
unless open(FH,$MINFO);
if (open(FH,$MINFO)) {
while(<FH>) {
chomp;
last if /^RELATIVE_DIRECTORY=test$/;
}
while(<FH>) {
chomp;
last if /^EXE=/;
}
close FH;
my $pathfix = sub { return shift; }; # noop
if ($^O eq "MSWin32") {
# Experience has shown that glob needs the backslashes escaped
# to handle the glob glob() gets served. Otherwise, it sometimes
# considers the backslash an escape of the next character, most
# notably the [.
# (if the single backslash is followed by a *, however, the *
# doesn't seem to be considered escaped... go figure...)
$pathfix = sub { shift; s/\\/\\\\/g; return $_; };
}
s/^EXE=\s*//;
s/\s*$//;
%foundfiles =
map {
my $key = $_;
s/_?test$//;
s/(sha\d+)t/$1/;
$key =>
$pathfix->(top_file("test", "recipes",
"[0-9][0-9]-test_$_.t")); } split(/\s+/, $_);
$numtests = scalar keys %foundfiles;
while(<FH>) {
chomp;
last if /^RELATIVE_DIRECTORY=test$/;
}
while(<FH>) {
chomp;
last if /^EXE=/;
}
close FH;
plan tests => $numtests;
s/^EXE=\s*//;
s/\s*$//;
my @expected_tests =
map { s/\..*$//; # Remove extension
s/_?test$//; # Remove possible underscore
s/(sha\d+)t/$1/; # sha comes with no t at the end
$_; } split(/\s+/, $_);
skip "because $MINFO not found. If you want this test to run, please do 'perl util/mkfiles.pl > $MINFO'", 1
unless %foundfiles;
plan tests => scalar @expected_tests;
foreach (sort keys %foundfiles) {
my @check = glob($foundfiles{$_});
ok(scalar @check, "check that a test for $_ exists")
|| diag("Expected to find something matching $foundfiles{$_}");
my @found_tests =
map { basename($_) } glob(top_file("test", "recipes", "*.t"));
foreach my $test (sort @expected_tests) {
ok(scalar(grep(/^[0-9][0-9]-test_$test\.t$/, @found_tests)),
"check that a test for $test exists")
|| diag("Expected to find something matching '[0-9][0-9]-test_$test.t'");
}
}