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

runtests.pl: Remove filteroff() which hasn't been used since 2001

Browse Source
This commit is contained in:
Fabian Keil 2014-06-19 17:31:35 +02:00 committed by Dan Fandrich
parent dc7a598126
commit 2fab0d45a9
1 changed files with 0 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/runtests.pl
View File

@ -2207,38 +2207,11 @@ sub cleardir {
return $count; return $count;
} }
#######################################################################
# filter out the specified pattern from the given input file and store the
# results in the given output file
#
sub filteroff {
my $infile=$_[0];
my $filter=$_[1];
my $ofile=$_[2];
open(IN, "<$infile")
|| return 1;
open(OUT, ">$ofile")
|| return 1;
# logmsg "FILTER: off $filter from $infile to $ofile\n";
while(<IN>) {
$_ =~ s/$filter//;
print OUT $_;
}
close(IN);
close(OUT);
return 0;
}
####################################################################### #######################################################################
# compare test results with the expected output, we might filter off # compare test results with the expected output, we might filter off
# some pattern that is allowed to differ, output test results # some pattern that is allowed to differ, output test results
# #
sub compare { sub compare {
# filter off patterns _before_ this comparison!
my ($testnum, $testname, $subject, $firstref, $secondref)=@_; my ($testnum, $testname, $subject, $firstref, $secondref)=@_;
my $result = compareparts($firstref, $secondref); my $result = compareparts($firstref, $secondref);