Commit 0340edcf authored by Richard Levitte's avatar Richard Levitte
Browse files

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



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: default avatarRich Salz <rsalz@openssl.org>
parent dac494d2

test/recipes/00-check_testexes.t

deleted100644 → 0
+0 −59
Original line number Diff line number Diff line 
#! /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'");

}