use warnings;
my @ignore=(
+qr{^.PASS: }o,
+qr{^.KPASS: }o,
+qr{^-FAIL: }o,
+qr{^-KFAIL: }o,
+qr{^-XFAIL: }o,
qr{^.Test Run By }o,
+qr{^.Running }o,
qr{^.gnatbind }o,
qr{^.gnatlink }o,
qr{^.gnatlink: }o,
qr{^.(?:PASS|FAIL): gdb.server/file-transfer.exp: verified deleted binary file\n$}o,
qr{^.(?:PASS|FAIL): gdb.server/file-transfer.exp: deleted binary file\n$}o,
qr{^.(?:PASS|FAIL): gdb.threads/attachstop-mt.exp: attach1, post-gdb sanity check of the sleeping state - Red Hat BZ 197584\n$}o,
-qr{^."uplevel #0 source .*gdb/testsuite/gdb.threads/watchthreads-thr.*\.\.\."\n$}o,
+qr{^."uplevel #0 source .*gdb/testsuite/gdb.threads/watchthreads-thr(?:eaded\.exp|.*\.\.\.)"\n$}o,
);
my $ignore=shift @ignore;
$ignore=qr/$ignore|$_/ for @ignore;
$this->{"buffer"}.=$_;
next if /^ /;
next if /^[+]Running / && $thisname && !$opt_new;
- next if /^[+]PASS: /;
- next if /^[+]KPASS: /;
- next if /^-PASS: /;
- next if /^-KPASS: /;
- next if /^-FAIL: /;
- next if /^-KFAIL: /;
- next if /^-XFAIL: /;
next if $ignore && /$ignore/o;
next if /^[+]FAIL: / && $this->{"+Running"};
next if /^[+]KFAIL: / && $this->{"+Running"};