Skip to content

Commit

Permalink
runtests.pl: Remove filteroff() which hasn't been used since 2001
Browse files Browse the repository at this point in the history
  • Loading branch information
fabiankeil authored and dfandrich committed Jul 26, 2014
1 parent dc7a598 commit 2fab0d4
Showing 1 changed file with 0 additions and 27 deletions.
27 changes: 0 additions & 27 deletions tests/runtests.pl
Expand Up @@ -2207,38 +2207,11 @@ sub cleardir {
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
# some pattern that is allowed to differ, output test results
#
sub compare {
# filter off patterns _before_ this comparison!
my ($testnum, $testname, $subject, $firstref, $secondref)=@_;

my $result = compareparts($firstref, $secondref);
Expand Down

0 comments on commit 2fab0d4

Please sign in to comment.