File Coverage

/home/pjcj/g/Test-Smoke/perl-current-gcov/cpan/Test-Simple/examples/subtest.t
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
total 30 30 100.0


line stmt bran cond sub time code
1           #!/usr/bin/env perl
2            
3 1     1 5 use strict;
  1       2  
  1       37  
4 1     1 5 use warnings;
  1       2  
  1       33  
5            
6 1     1 268 use lib '../lib';
  1       852  
  1       10  
7 1     1 650 use Test::More tests => 3;
  1       21219  
  1       32  
8            
9 1       113462 ok 1;
10           subtest 'some name' => sub {
11 1     1 532 my $num_tests = 2 + int( rand(3) );
12 1       6 plan tests => $num_tests;
13 1       142 ok 1 for 1 .. $num_tests - 1;
14           subtest 'some name' => sub {
15 1       417 plan 'no_plan';
16 1       35 ok 1 for 1 .. 2 + int( rand(3) );
17 1       1013 };
18 1       447 };
19 1       2195 ok 1;