File Coverage

test/lib/RandomFileWithUnknownParameters.pm
Criterion Covered Total %
statement 29 31 93.5
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 1 0.0
total 39 42 92.8


line stmt bran cond sub pod time code
1             package
2             RandomFileWithUnknownParameters;
3 1     1   9 use base qw/RandomFileMethodBase/;
  1         2  
  1         68  
4 1     1   6 use TestConstants;
  1         2  
  1         67  
5              
6 1     1   7 use strict;
  1         1  
  1         18  
7 1     1   6 use warnings;
  1         1  
  1         23  
8              
9 1     1   5 use Test::More;
  1         11  
  1         9  
10 1     1   274 use Test::Warn;
  1         2  
  1         184  
11              
12             use constant UNKNOWN_PARAMS => (-verzeichnis => SIMPLE_DIR,
13             -ueberpruefe => qr/deutsch/,
14             -DIR => SIMPLE_DIR,
15             dir => SIMPLE_DIR,
16 0         0 -Check => sub {1},
17 0         0 check => sub {1},
18 1         250 -RECURSIVE => 1,
19 1     1   7 recursive => 1);
  1         2  
20            
21             sub warning_when_unknown_param : Test(8) {
22 6     6 0 4560 my $self = shift;
23 6         62 my %params = UNKNOWN_PARAMS;
24 6         44 while (my @args = each %params) {
25 48     48   2384 warning_like {$self->random_file(@args)}
26 48         18250 [{carped => qr/unknown option/i}],
27             "Arguments: @args";
28             }
29 1     1   9 }
  1         2  
  1         25  
30              
31             1;