diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 23:57:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 23:57:28 +0000 |
| commit | 23d9bdcd455be0f227c5fef166e0781b33c98235 (patch) | |
| tree | cf62f31ba134d9d7596992521f07cdedf995db3e /lib/Test/Harness.pm | |
| parent | bbf47560151b02ace7c0fb0245673ddfa0fc30a8 (diff) | |
| download | perl-23d9bdcd455be0f227c5fef166e0781b33c98235.tar.gz | |
(Retracted by #11586)
Hack to get rid of the UNEXPECTEDLY succeeded message for now.
p4raw-id: //depot/perl@10874
Diffstat (limited to 'lib/Test/Harness.pm')
| -rw-r--r-- | lib/Test/Harness.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index e0c4dbe3f7..e5df1f8b15 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -575,7 +575,8 @@ sub _show_results { my $bonusmsg = _bonusmsg($tot); if ($tot->{bad} == 0 && $tot->{max}) { - print "All tests successful$bonusmsg.\n"; +# print "All tests successful$bonusmsg.\n"; + print "All tests successful.\n"; } elsif ($tot->{tests}==0){ die "FAILED--no tests were run for some reason.\n"; } elsif ($tot->{max} == 0) { |