diff --git a/test/recipes/00-check_testexes.t b/test/recipes/00-check_testexes.t deleted file mode 100644 index 9da85f26af4a05d678fc0851fec06270b4c202b5..0000000000000000000000000000000000000000 --- a/test/recipes/00-check_testexes.t +++ /dev/null @@ -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=/ } )[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() { - s/\R//; # chomp; - if (/^VERSION=([^\s]*)\s*$/) { - $MINFO_ver = $1; - } - last if /^RELATIVE_DIRECTORY=test$/; -} -while() { - 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'"); -}