Commit a23ac241 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

made it support test case ranges on the command line, specified as 

"X to Y", where X is smaller than Y.
parent 9ee14644

tests/runtests.pl

+27 −5
Original line number Diff line number Diff line
@@ -356,7 +356,7 @@ sub singletest { 
    if(! -r $CURLCMD) {

        # this is not a test

        print "$NUMBER doesn't look like a test case!\n";

        next;

        return -1;

    }



    # remove previous server output logfile
@@ -567,6 +567,8 @@ sub singletest { 
# Check options to this test program

#



my $number=0;

my $fromnum=-1;

my @testthis;

do {

    if ($ARGV[0] eq "-v") {
@@ -605,8 +607,20 @@ EOHELP 
        exit;

    }

    elsif($ARGV[0] =~ /^(\d+)/) {

        $number = $1;

        if($fromnum >= 0) {

            for($fromnum .. $number) {

                push @testthis, $_;

            }

            $fromnum = -1;

        }

        else {

            push @testthis, $1;

        }

    }

    elsif($ARGV[0] =~ /^to$/i) {

        $fromnum = $number;

    }

} while(shift @ARGV);



if($testthis[0] ne "") {
@@ -670,9 +684,12 @@ my $ok=0; 
my $total=0;

foreach $testnum (split(" ", $TESTCASES)) {



    $total++;

    my $error = singletest($testnum);

    if($error && !$anyway) {

    if(-1 != $error) {

        # valid test case number

        $total++;

    }

    if(($error>0) && !$anyway) {

        # a test failed, abort

        print "\n - abort tests\n";

        last;
@@ -696,4 +713,9 @@ close(CMDLOG); 
stopserver($FTPPIDFILE);

stopserver($PIDFILE);



if($total) {

    print "$ok tests out of $total reported OK\n";

}

else {

    print "No tests were performed!\n";

}