File Coverage

lib/Test/Chai/Core/Assertions/Nan.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 28 29 96.5


line stmt bran cond sub pod time code
1             package Test::Chai::Core::Assertions::Nan;
2 2     2   10 use strict;
  2         4  
  2         54  
3 2     2   9 use warnings;
  2         4  
  2         48  
4 2     2   9 use utf8;
  2         4  
  2         11  
5              
6 2     2   49 use Exporter qw/import/;
  2         4  
  2         110  
7             our @EXPORT_OK = qw/assert_nan/;
8              
9 2     2   1546 use Scalar::Util::Numeric qw/isnan/;
  2         1572  
  2         146  
10              
11 2     2   12 use Test::Chai::Util::Flag qw/flag/;
  2         4  
  2         218  
12              
13             sub assert_nan {
14 8     8 0 12 my $self = shift;
15 8         19 my $obj = flag($self, 'object');
16 8         46 return $self->assert(
17             isnan($obj),
18             'expected #{this} to be NaN',
19             'expected #{this} to be NaN'
20             );
21             }
22              
23             1;