summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorRichard Levitte <levitte@openssl.org>2016-02-13 11:49:56 +0100
committerRichard Levitte <levitte@openssl.org>2016-02-13 14:00:22 +0100
commit0340edcf6770c40a251be7e7ffb0f02d020ecd45 (patch)
tree92b536486e30fca7eaadcd1a39e55db3edef6cf3 /test
parentdac494d2a83ee38b59961d787f621b741e5b8aad (diff)
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: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'test')
-rw-r--r--test/recipes/00-check_testexes.t59
1 files changed, 0 insertions, 59 deletions
diff --git a/test/recipes/00-check_testexes.t b/test/recipes/00-check_testexes.t
deleted file mode 100644
index 9da85f26af..0000000000
--- 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=/ } <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'");
-}