File Coverage

examples/tagged-digest/features/step_definitions/basic_steps.pl
Criterion Covered Total %
statement 70 70 100.0
branch n/a
condition n/a
subroutine 20 20 100.0
pod n/a
total 90 90 100.0


line stmt bran cond sub pod time code
1             #!perl
2              
3 2     2   19 use strict;
  2     1   6  
  2         65  
  1         13  
  1         2  
  1         25  
4 2     2   11 use warnings;
  2     1   6  
  2         62  
  1         5  
  1         9  
  1         27  
5              
6 2     2   611 use Digest;
  2     1   607  
  2         50  
  1         5  
  1         3  
  1         78  
7 2     2   13 use Test::More;
  2     1   4  
  2         27  
  1         8  
  1         2  
  1         8  
8 2     2   568 use Test::BDD::Cucumber::StepFile;
  2     1   6  
  2         3332  
  1         247  
  1         2  
  1         1643  
9              
10 1     1   258 Given qr/a usable "(\w+)" class/, sub { use_ok( C->matches->[0] ); };
  1     1   3  
  1     1   2  
  1     1   18  
  1     1   317  
  1     1   3  
  1     1   2  
  1     1   23  
  1     1   253  
  1     1   4  
  1         2  
  1         15  
  1         206  
  1         2  
  1         2  
  1         13  
  1         205  
  1         3  
  1         3  
  1         13  
  1         247  
  1         2  
  1         3  
  1         13  
  1         264  
  1         3  
  1         3  
  1         26  
  1         238  
  1         3  
  1         2  
  1         13  
  1         239  
  1         3  
  1         2  
  1         14  
  1         255  
  1         2  
  1         2  
  1         16  
11             Given qr/a Digest (\S+) object/, sub {
12             my $object = Digest->new( C->matches->[0] );
13             ok( $object, "Object created" );
14             S->{'object'} = $object;
15             };
16              
17             When qr/I've added "(.+)" to the object/, sub {
18             S->{'object'}->add( C->matches->[0] );
19             };
20              
21             When "I've added the following to the object", sub {
22             S->{'object'}->add( C->data );
23             };
24              
25             Then qr/the (.+) output is "(.+)"/, sub {
26             my ( $type, $expected ) = @{ C->matches };
27             my $method = {
28             'base64' => 'b64digest',
29             'hex' => 'hexdigest'
30             }->{$type};
31              
32             is( S->{'object'}->$method, $expected );
33             };