moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

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

Browse Source 
"X to Y", where X is smaller than Y.
This commit is contained in:
Daniel Stenberg 2001-03-12 12:58:30 +00:00
parent 9ee14644a7
commit a23ac24192
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
tests/runtests.pl
View File

@ -356,7 +356,7 @@ sub singletest {
if(! -r $CURLCMD) { if(! -r $CURLCMD) {
# this is not a test # this is not a test
print "$NUMBER doesn't look like a test case!\n"; print "$NUMBER doesn't look like a test case!\n";
next; return -1;
} }
# remove previous server output logfile # remove previous server output logfile
@ -567,6 +567,8 @@ sub singletest {
# Check options to this test program # Check options to this test program
# #
my $number=0;
my $fromnum=-1;
my @testthis; my @testthis;
do { do {
if ($ARGV[0] eq "-v") { if ($ARGV[0] eq "-v") {
@ -605,7 +607,19 @@ EOHELP
exit; exit;
} }
elsif($ARGV[0] =~ /^(\d+)/) { elsif($ARGV[0] =~ /^(\d+)/) {
push @testthis, $1; $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); } while(shift @ARGV);
@ -670,9 +684,12 @@ my $ok=0;
my $total=0; my $total=0;
foreach $testnum (split(" ", $TESTCASES)) { foreach $testnum (split(" ", $TESTCASES)) {
$total++;
my $error = singletest($testnum); my $error = singletest($testnum);
if($error && !$anyway) { if(-1 != $error) {
# valid test case number
$total++;
}
if(($error>0) && !$anyway) {
# a test failed, abort # a test failed, abort
print "\n - abort tests\n"; print "\n - abort tests\n";
last; last;
@ -696,4 +713,9 @@ close(CMDLOG);
stopserver($FTPPIDFILE); stopserver($FTPPIDFILE);
stopserver($PIDFILE); stopserver($PIDFILE);
print "$ok tests out of $total reported OK\n"; if($total) {
print "$ok tests out of $total reported OK\n";
}
else {
print "No tests were performed!\n";
}