summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--selftest/output/plain.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm
index 26056038f5..509e066910 100644
--- a/selftest/output/plain.pm
+++ b/selftest/output/plain.pm
@@ -65,7 +65,11 @@ sub start_testsuite($$)
$self->{test_output}->{$name} = "" unless($self->{verbose});
my $out = "";
- $out .= "[$self->{index}/$self->{totalsuites} in ".$duration."s";
+ $out .= "[$self->{index}";
+ if ($self->{totalsuites}) {
+ $out .= "/$self->{totalsuites}";
+ }
+ $out.= " in ".$duration."s";
$out .= sprintf(", %d errors", ($#{$self->{suitesfailed}}+1)) if ($#{$self->{suitesfailed}} > -1);
$out .= "] $name";
if ($self->{immediate}) {