runtests: allow <strippart> to remove lines
For verify file, if the strippart condition removes the line completely
it is now removed from the array.
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 0de76e3..8a47d58 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3809,9 +3809,16 @@
my $strip;
for $strip (@stripfile) {
chomp $strip;
+ my @newgen;
for(@generated) {
eval $strip;
+ if($_) {
+ push @newgen, $_;
+ }
}
+ # this is to get rid of array entries that vanished (zero
+ # length) because of replacements
+ @generated = @newgen;
}
@outfile = fixarray(@outfile);