diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-18 10:06:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-18 10:06:29 +0000 |
| commit | c4f6c246c38c066f4a31b234d7fc96f1ab219772 (patch) | |
| tree | d01e3117fe1c16a5a24771587d43336b6282c126 /lib | |
| parent | 2c0b28dd04ba275e235e067ac76a0a841338c8a2 (diff) | |
| download | perl-c4f6c246c38c066f4a31b234d7fc96f1ab219772.tar.gz | |
a few random cleanups
p4raw-id: //depot/perl@2640
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 935e8f07d2..219ffb9a7c 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -243,14 +243,17 @@ sub runtests { " UNEXPECTEDLY SUCCEEDED)") if $totbonus; if ($tests_skipped) { - $bonusmsg .= ", $tests_skipped test" . ($tests_skipped != 1 ? 's' : '') . - ' skipped'; + $bonusmsg .= ", $tests_skipped test" . ($tests_skipped != 1 ? 's' : ''); + if ($subtests_skipped) { + $bonusmsg .= " and $subtests_skipped subtest" + . ($subtests_skipped != 1 ? 's' : ''); + } + $bonusmsg .= ' skipped'; } - if ($subtests_skipped) { - $bonusmsg .= ($tests_skipped ? ', plus ' : ', '). - "$subtests_skipped subtest" - . ($subtests_skipped != 1 ? 's' : '') . - " skipped"; + elsif ($subtests_skipped) { + $bonusmsg .= ", $subtests_skipped subtest" + . ($subtests_skipped != 1 ? 's' : '') + . " skipped"; } if ($bad == 0 && $totmax) { print "All tests successful$bonusmsg.\n"; |