NAME

Test::Flatten - subtest output to a flatten

SYNOPSIS

in t/foo.t

use Test::More;
use Test::Flatten;

subtest 'foo' => sub {
    pass 'OK';
};

subtest 'bar' => sub {
    pass 'ok';
    subtest 'baz' => sub {
        pass 'ok';
    };
};

done_testing;

run it

$ prove -lvc t/foo.t
t/foo.t .. 
# ------------------------------------------------------------------------------
# foo
# ------------------------------------------------------------------------------
ok 1 - ok
# ------------------------------------------------------------------------------
# bar
# ------------------------------------------------------------------------------
ok 2 - ok
# ------------------------------------------------------------------------------
# baz
# ------------------------------------------------------------------------------
ok 3 - ok
1..3
ok

oh, flatten!

DESCRIPTION

Test::Flatten is override Test::More::subtest.

The subtest I think there are some problems.

• 1. Caption is appears at end of subtest block.

     use Test::More;

     subtest 'foo' => sub { pass 'ok'; };

     done_testing;

     ok 1 - foo is end of subtest block.

     t/foo.t .. ok 1 - ok 1..1 ok 1 - foo 1..1 ok

  I want FIRST.

• 1. Summarizes the test would count.

     use Test::More;

     subtest 'foo' => sub { pass 'bar'; pass 'baz'; };

     done_testing;

     total tests is 1

     t/foo.t .. ok 1 - bar ok 2 - baz 1..2 ok 1 - foo 1..1

  I want 2.

• 1. Forked test output will be broken. (Even with Test::SharedFork!)

     use Test::More;

     subtest 'foo' => sub { pass 'parent one'; pass 'parent two'; my $pid = fork; unless ($pid) { pass 'child one'; pass 'child two'; fail 'child three'; exit; } wait; pass 'parent three'; };

     done_testing;

     success...?

     t/foo.t .. ok 1 - parent one ok 2 - parent two ok 3 - child one ok 4 - child two not ok 5 - child three

        #   Failed test 'child three'
        #   at t/foo.t line 13.
        ok 3 - parent three
        1..3
     

     ok 1 - foo 1..1 ok

  oh, really? I want FAIL and sync count.

ok 1 - foo is end of subtest block.

total tests is 1

success...?

Yes, We can!!

FUNCTIONS

• subtest($name, \&code)

  This like Test::More::subtest.

SUBTEST_FILTER

If you need, you can using SUBTEST_FILTER environment. This is just a *hack* to skip only blocks matched the block name by environment variable. SUBTEST_FILTER variable can use regexp

$ env SUBTEST_FILTER=foo prove -lvc t/bar.t
# SKIP: bar by SUBTEST_FILTER
# ------------------------------------------------------------------------------
# foo
# ------------------------------------------------------------------------------
ok 1 - passed
# SKIP: baz by SUBTEST_FILTER
1..1

AUTHOR

xaicron <xaicron {at} cpan.org>

COPYRIGHT

Copyright 2011 - xaicron

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Test::SharedFork