in reply to See your test results in color.
my @failures; foreach my $file (<t/*.t>) { local *STDERR; my %results = eval { $tester->analyze_file( $file ); }; push @failures, $file unless $results{passing}; } if (@failures) { print scalar(@failures), " files failed.\n"; local $"=$/; print "@failures\n"; } else { print "All tests succeeded.\n"; }
You'll want the eval, just in case something dies in your test file, like a missing method name. The local *STDERR; seems to shut Test::Harness up. YMMV.
Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: See your test results in color.
by Ovid (Cardinal) on Jan 26, 2005 at 20:11 UTC | |
by radiantmatrix (Parson) on Jan 27, 2005 at 21:24 UTC | |
by Ovid (Cardinal) on Jan 27, 2005 at 22:49 UTC |