diff options
Diffstat (limited to 'selftest/output/plain.pm')
| -rw-r--r-- | selftest/output/plain.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm index 509e066910..20e5abc253 100644 --- a/selftest/output/plain.pm +++ b/selftest/output/plain.pm @@ -143,7 +143,11 @@ sub end_test($$$$$) my ($self, $parents, $testname, $result, $unexpected, $reason) = @_; if ($#$parents == -1) { - $self->end_testsuite($testname, $result, $unexpected, $reason); + if ($result eq "skip") { + $self->skip_testsuite($testname, $reason); + } else { + $self->end_testsuite($testname, $result, $unexpected, $reason); + } return; } @@ -233,7 +237,9 @@ sub skip_testsuite($$) push (@{$self->{skips}->{$reason}}, $name); - $self->{totalsuites}--; + if ($self->{totalsuites}) { + $self->{totalsuites}--; + } } 1; |