wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove 00-test_checkexes.t, as it has lost its relevance

Browse source 
In the early stages of creating the new test framework,
00-test_checkexes was a temporary check to ensure we had a recipe for
every test program in test/.  By now, this test has fulfilled its
purpose, and we've learned how to make recipes properly.  It's time
for this check to go away.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2016-02-13 11:49:56 +01:00
parent dac494d2a8
commit 0340edcf67
1 changed files with 0 additions and 59 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
test/recipes/00-check_testexes.t
View file

@ -1,59 +0,0 @@
#! /usr/bin/perl
use strict;
use File::Spec::Functions;
use File::Basename;
use OpenSSL::Test qw/:DEFAULT bldtop_file/;
setup("check_testexes");
my $OpenSSL_ver = "";
my $Makefile = bldtop_file("Makefile");
if (open(FH, $Makefile)) {
$OpenSSL_ver =
(map { s/\R//; s/^VERSION=([^\s]*)\s*$//; $1 } grep { /^VERSION=/ } <FH>)[0];
close FH;
}
my $MINFO = bldtop_file("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);
my $MINFO_ver = "";
while(<FH>) {
s/\R//; # chomp;
if (/^VERSION=([^\s]*)\s*$/) {
$MINFO_ver = $1;
}
last if /^RELATIVE_DIRECTORY=test$/;
}
while(<FH>) {
s/\R//; # chomp;
last if /^EXE=/;
}
close FH;
plan skip_all => "because MINFO is not from this OpenSSL version. If you want this test to run, please do 'perl util/mkfiles.pl > MINFO'"
unless $OpenSSL_ver eq $MINFO_ver;
s/^EXE=\s*//;
s/\s*$//;
my @expected_tests =
map { s/\..*$//; # Remove extension
s/_?test$//; # Remove 'test', possibly prefixed with '_'
s/(sha\d+)t/$1/; # sha comes with no t at the end
$_; } split(/\s+/, $_);
plan tests => scalar @expected_tests;
my @found_tests =
map { basename($_) } glob(bldtop_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'");
}