I might be able to release a new Test::Aggregate to the CPAN.  It includes 
Test::Aggregate::Nested.  It's like the current Test::Aggregate, but it's much 
cleaner and it uses nested TAP.  Because it can now assert a plan (which 
Test::Aggregate couldn't) and this plan is equal to the number of tests, code 
which uses Test::Aggregate::Nested and also had extra tests included would 
break because Test::Aggregate::Nested was asserting that plan.  The solution 
was obvious: run the Test::Aggregate::Nested tests inside of their own subtest. 
 That led to the following very delightful output to my terminal:

    1..5
        1..5
            1..1
            ok 1 - findbin is reinitialized for every test
        ok 1 - aggtests/findbin.t
            1..0 # SKIP Testing skip all
        ok 2 # skip Testing skip all
            1..1
            ok 1 - subs work!
        ok 3 - aggtests/subs.t
            1..2
            ok 1 - slow loading module loaded
            ok 2 - env variables should not hang around
        ok 4 - aggtests/slow_load.t
            1..5
            ok 1 - aggtests/check_plan.t ***** 1
            ok 2 - aggtests/check_plan.t ***** 2
            ok 3 # skip checking plan (aggtests/check_plan.t ***** 3)
            ok 4 - env variables should not hang around
            ok 5 - aggtests/check_plan.t ***** 4
        ok 5 - aggtests/check_plan.t
    ok 1 - nested tests
    ok 2 - Startup should be called once
    ok 3 - ... as should shutdown
    ok 4 - Setup should be called once for each test program
    ok 5 - ... as should teardown
    ok
    All tests successful.
    Files=1, Tests=5,  1 wallclock secs ( 0.02 usr  0.00 sys +  0.11 cusr  0.01 
csys =  0.14 CPU)
    Result: PASS


Cheers,
Ovid
--
Buy the book         - http://www.oreilly.com/catalog/perlhks/
Tech blog            - http://use.perl.org/~Ovid/journal/
Twitter              - http://twitter.com/OvidPerl
Official Perl 6 Wiki - http://www.perlfoundation.org/perl6

Reply via email to