On Wed, Apr 19, 2006 at 07:22:33AM +0200, demerphq wrote: > On 4/19/06, Andy Lester <[EMAIL PROTECTED]> wrote: > > > BTW, the patch only shows TODO pass status when no failures occur. > > > > > > Oh and obviously all of Test::Harness'es tests pass. :-) > > > > This patch doesn't apply against my latest dev version of > > Test::Harness. I'm going to have to massage it manually. > > > > But I like the idea. Thanks. > > You're welcome. If it helps It was against Test-Harness-2.56. >
Maybe I'm thinking too hard, or maybe the results reported aren't
exactly as clear as they probably should be. Here's an example test and
its results as reported by Test::Harness with the TODO changes.
#!perl -w
use strict;
use Test::More qw(no_plan);
TODO: {
local $TODO = "TODO testing";
is(1, 2, "A failing test");
is(1, 1, "A passing test");
}
[EMAIL PROTECTED]:~/smoke/perl-current/t$ ./perl harness th_test.t
th_test....ok
1/2 unexpectedly succeeded
TODO PASSED tests 1-2
All tests successful (1 subtest UNEXPECTEDLY SUCCEEDED).
Passed Test Stat Wstat Total Pass Passed List of Passed
-------------------------------------------------------------------------------
th_test.t 2 1 50.00% 1-2
Files=1, Tests=2, 0 wallclock secs ( 0.11 cusr + 0.01 csys = 0.12
CPU)
The line starting TODO PASSED shows all TODO tests, not those that
unexpectedly succeeded, which confused me a bit. Also, the final
results show that one test passed, but then the list of passed is "1-2"
instead of just "2" which is the unexpected success. Is there a way to
have the list of passed just show the unexpected successes?
Steve Peters
[EMAIL PROTECTED]
signature.asc
Description: Digital signature
