204e41ed50
00-check_testexes.t was a way for me to check that I didn't forget a compiled test app. The way it worked was to require MINFO to be present. Considering the need for this test has diminished considerably at this point, I might as well tone down the requirement, and have it skip the test (and not fail it) if MINFO isn't present. Reviewed-by: Rich Salz <rsalz@openssl.org>
63 lines
1.5 KiB
Perl
63 lines
1.5 KiB
Perl
#! /usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
use File::Spec::Functions;
|
|
use Test::More;
|
|
|
|
use OpenSSL::Test qw/:DEFAULT top_file/;
|
|
|
|
setup("check_testexes");
|
|
|
|
my $MINFO = top_file("MINFO");
|
|
|
|
SKIP: {
|
|
my %foundfiles;
|
|
my $numtests = 1;
|
|
|
|
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;
|
|
}
|
|
|
|
plan tests => $numtests;
|
|
|
|
skip "because $MINFO found. If you want this test to run, please do 'perl util/mkfiles.pl > $MINFO'", 1
|
|
unless %foundfiles;
|
|
|
|
foreach (sort keys %foundfiles) {
|
|
my @check = glob($foundfiles{$_});
|
|
ok(scalar @check, "check that a test for $_ exists")
|
|
|| diag("Expected to find something matching $foundfiles{$_}");
|
|
}
|
|
}
|