diff --git a/test/recipes/00-check_testexes.t b/test/recipes/00-check_testexes.t index 483d8830fe196c461b7dfba20788fdc0f5a66941..3ab38c77afe65d0a999a6fc5217ec8efed5f08d9 100644 --- a/test/recipes/00-check_testexes.t +++ b/test/recipes/00-check_testexes.t @@ -8,13 +8,26 @@ use OpenSSL::Test qw/:DEFAULT top_file/; setup("check_testexes"); +my $OpenSSL_ver = ""; +my $Makefile = top_file("Makefile"); +if (open(FH, $Makefile)) { + $OpenSSL_ver = + (map { chomp; s/^VERSION=([^\s]*)\s*$//; $1 } grep { /^VERSION=/ } )[0]; + close FH; +} + my $MINFO = top_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() { chomp; + if (/^VERSION=([^\s]*)\s*$/) { + $MINFO_ver = $1; + } last if /^RELATIVE_DIRECTORY=test$/; } while() { @@ -23,6 +36,9 @@ while() { } 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 =