Commit caadc543 authored by Richard Levitte's avatar Richard Levitte
Browse files

New feature: STOPTEST 



When the environment variable STOPTEST is defined (with any value other
than the empty string), the test machinery in OpenSSL::Test goes into a
different mode that will stop all testing at the end of a failing recipe.

Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent fb921436

test/testlib/OpenSSL/Test.pm

+11 −0
Original line number Diff line number Diff line
@@ -27,6 +27,8 @@ my %directories = (); # Directories we want to keep track of 
				# to the environment variables TOP (mandatory),

				# BIN_D, TEST_D and RESULT_D.



my $end_with_bailout = 0;



sub quotify;



sub __top_file {
@@ -140,6 +142,8 @@ sub setup { 
    $directories{TEST}    = $ENV{TEST_D}   || catdir($directories{TOP},"test");

    $directories{RESULTS} = $ENV{RESULT_D} || $directories{TEST};



    $end_with_bailout	  = $ENV{STOPTEST} ? 1 : 0;



    BAIL_OUT("setup() expects the file Configure in the \$TOP directory")

	unless -f top_file("Configure");
@@ -273,6 +277,13 @@ sub cmdstr { 
    return $display_cmd;

}



END {

    my $tb = Test::More->builder;

    my $failure = scalar(grep { $_ == 0; } $tb->summary);

    if ($failure && $end_with_bailout) {

	BAIL_OUT("Stoptest!");

    }

}

sub run {

    my ($cmd, $display_cmd, %errlogs) = shift->(0);

    my %opts = @_;