D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
share
/
doc
/
perl-Test-Simple
/
examples
/
Filename :
indent.pl
back
Copy
#!/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 $_" ); }
Name
Size
Last Modified
Owner
Permissions
Actions
indent.pl
0.665
KB
March 30 2018 5:53:02
root
0644
subtest.t
0.34
KB
March 30 2018 5:53:02
root
0644
tools.pl
2.997
KB
March 30 2018 5:53:02
root
0644
tools.t
4.557
KB
March 30 2018 5:53:02
root
0644
2017 © D7net | D704T team