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

Better method of skipping all the tests in 00-check_testexes.t

Browse Source 
Before trying to read MINFO, we have no idea how many to test for, and
because skip expects to get an exact number somehow, it's better to
use 'plan skip_all'.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2015-08-09 05:35:57 +02:00
parent 8de4f3d3a6
commit 2511c12bf2
1 changed files with 29 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,8 +10,7 @@ setup("check_testexes");
my $MINFO = top_file("MINFO");
SKIP: {
skip "because $MINFO not found. If you want this test to run, please do 'perl util/mkfiles.pl > $MINFO'"
plan skip_all => "because MINFO not found. If you want this test to run, please do 'perl util/mkfiles.pl > MINFO'"
unless open(FH,$MINFO);
while(<FH>) {
@ -28,7 +27,7 @@ my $MINFO = top_file("MINFO");
s/\s*$//;
my @expected_tests =
map { s/\..*$//; # Remove extension
s/_?test$//; # Remove possible underscore
s/_?test$//; # Remove 'test', possibly prefixed with '_'
s/(sha\d+)t/$1/; # sha comes with no t at the end
$_; } split(/\s+/, $_);
@ -42,4 +41,3 @@ my $MINFO = top_file("MINFO");
"check that a test for $test exists")
|| diag("Expected to find something matching '[0-9][0-9]-test_$test.t'");
}
}