1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use lib '../lib';
7use Test::Builder;
8
9=head1 NOTES
10
11Must have explicit finalize
12Must name nest
13Trailing summary test
14Pass chunk o'TAP
15No builder may have more than one child active
16What happens if you call ->finalize with open children
17
18=cut
19
20my $builder = Test::Builder->new;
21$builder->plan(tests => 7);
22for( 1 .. 3 ) {
23    $builder->ok( $_, "We're on $_" );
24    $builder->note("We ran $_");
25}
26{
27    my $indented = $builder->child;
28    $indented->plan('no_plan');
29    for( 1 .. 1+int(rand(5))  ) {
30        $indented->ok( 1, "We're on $_" );
31    }
32    $indented->finalize;
33}
34for( 7, 8, 9 ) {
35    $builder->ok( $_, "We're on $_" );
36}
37