64 lines
1.3 KiB
Perl
64 lines
1.3 KiB
Perl
|
#! /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{$_}");
|
||
|
|
}
|
||
|
|
}
|