summaryrefslogtreecommitdiff
path: root/test/recipes/00-check_testalltests.t
diff options
context:
space:
mode:
Diffstat (limited to 'test/recipes/00-check_testalltests.t')
-rw-r--r--test/recipes/00-check_testalltests.t63
1 files changed, 0 insertions, 63 deletions
diff --git a/test/recipes/00-check_testalltests.t b/test/recipes/00-check_testalltests.t
deleted file mode 100644
index 35eb992803..0000000000
--- a/test/recipes/00-check_testalltests.t
+++ /dev/null
@@ -1,63 +0,0 @@
-#! /usr/bin/perl
-
-use strict;
-
-use File::Spec::Functions;
-use Test::More;
-
-use lib 'testlib';
-use OpenSSL::Test;
-
-setup("check_testalltests");
-
-my $Makefile = top_file("test","Makefile");
-
-plan tests => 2;
-if (ok(open(FH,$Makefile), "test/Makefile exists")) {
- subtest 'Finding test scripts for the alltests target' => sub {
- find_tests(\*FH); close FH;
- };
-} else {
- diag("Expected to find $Makefile");
-}
-
-#-------------
-# test script finder
-sub find_tests {
- my $fh = shift;
- my $line;
- while(<$fh>) {
- chomp;
- $line = $_;
- last if /^alltests:/;
- }
- while(<$fh>) {
- chomp;
- my $l = $_;
- $line =~ s/\\\s*$/$l/;
- last if $line !~ /\\\s*$/;
- }
- close $fh;
- $line =~ s/^alltests:\s*//;
-
- # It's part of the test_ssl recipe
- $line =~ s/\s+test_ss\s+/ /;
-
- # It's split into sha1, sha256 and sha512
- $line =~ s/\s+test_sha\s+/ test_sha1 test_sha256 test_sha512 /;
-
- my %foundfiles =
- map {
- s/^test_//;
- $_ => top_file("test",
- "recipes/[0-9][0-9]-test_$_.t"); } split(/\s+/,
- $line);
-
- plan tests => scalar (keys %foundfiles);
-
- foreach (sort keys %foundfiles) {
- my @check = glob($foundfiles{$_});
- ok(scalar @check, "check that a test for $_ exists")
- || diag("Expected to find something matching $foundfiles{$_}");
- }
-}