Remove 00-test_checkexes.t, as it has lost its relevance
authorRichard Levitte <levitte@openssl.org>
Sat, 13 Feb 2016 10:49:56 +0000 (11:49 +0100)
committerRichard Levitte <levitte@openssl.org>
Sat, 13 Feb 2016 13:00:22 +0000 (14:00 +0100)
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>
test/recipes/00-check_testexes.t [deleted file]

diff --git a/test/recipes/00-check_testexes.t b/test/recipes/00-check_testexes.t
deleted file mode 100644 (file)
index 9da85f2..0000000
+++ /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=/ } <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'");
-}