aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFabian Keil <fk@fabiankeil.de>2014-06-19 17:31:35 +0200
committerDan Fandrich <dan@coneharvesters.com>2014-07-26 23:02:50 +0200
commit2fab0d45a91a2c8685ad3cdb4685fe75b741e11c (patch)
tree68ccbe47205f19be8df7c3d2075dfc50f6603641
parentdc7a5981269d9e18037f3c31bc1f5d520554ad7c (diff)
runtests.pl: Remove filteroff() which hasn't been used since 2001
-rwxr-xr-xtests/runtests.pl27
1 files changed, 0 insertions, 27 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl
index a20af2c7b..d0410649d 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -2208,37 +2208,10 @@ sub cleardir {
}
#######################################################################
-# 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);