runtests: allow <strippart> to remove lines

For verify file, if the strippart condition removes the line completely
it is now removed from the array.

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 0de76e3d1..8a47d5853 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3809,9 +3809,16 @@ sub singletest {
             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);