░▒▓████████████████████████████████▓▒░ ░▒▓█ ▓▒░ ░▒▓█ ~ S W A M P ~ ▓▒░ ░▒▓█ ▓▒░ ░▒▓████████████████████████████████▓▒░
vps.doorgans.com
LOCATION:
/usr/share/doc/perl-Test-Simple/examples
☗ ROOT
↻ REFRESH
✎ CARVE FLESH
EDITING: indent.pl
#!/usr/bin/env perl use strict; use warnings; use lib '../lib'; use Test::Builder; =head1 NOTES Must have explicit finalize Must name nest Trailing summary test Pass chunk o'TAP No builder may have more than one child active What happens if you call ->finalize with open children =cut my $builder = Test::Builder->new; $builder->plan(tests => 7); for( 1 .. 3 ) { $builder->ok( $_, "We're on $_" ); $builder->note("We ran $_"); } { my $indented = $builder->child; $indented->plan('no_plan'); for( 1 .. 1+int(rand(5)) ) { $indented->ok( 1, "We're on $_" ); } $indented->finalize; } for( 7, 8, 9 ) { $builder->ok( $_, "We're on $_" ); }
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 indent.pl
PL
681 B
2018-03-30 05:53
EDIT
📄 subtest.t
T
348 B
2018-03-30 05:53
EDIT
📄 tools.pl
PL
3 KB
2018-03-30 05:53
EDIT
📄 tools.t
T
4.6 KB
2018-03-30 05:53
EDIT