File Coverage

inc/MarpaX/Languages/C/AST/Expected.pm
Criterion Covered Total %
statement 18 36 50.0
branch 0 2 0.0
condition 0 2 0.0
subroutine 6 7 85.7
pod 0 1 0.0
total 24 48 50.0


line stmt bran cond sub pod time code
1 1     1   1291 use strict;
  1         3  
  1         47  
2 1     1   5 use warnings FATAL => 'all';
  1         2  
  1         48  
3              
4             package MarpaX::Languages::C::AST::Expected;
5 1     1   5 use Data::Dumper;
  1         1  
  1         50  
6 1     1   447 use IO::File;
  1         6140  
  1         106  
7 1     1   6 use File::Basename;
  1         2  
  1         46  
8 1     1   4 use File::Spec;
  1         1  
  1         216  
9              
10             sub value {
11 0     0 0   my ($class, $got) = @_;
12              
13 0           my ($filename, $directories, $suffix) = fileparse($0, qr/\.[^.]*/);
14 0           my $datafilename = File::Spec->catfile($directories, "$filename.data");
15 0 0 0       if ($ENV{RELEASE_TESTING} || 0) {
16             #
17             # Untaint $datafilename
18             #
19 0           ($datafilename) = $datafilename =~ /^(.*)$/;
20 0           my $fh = IO::File->new($datafilename, 'w');
21 0           my $d = Data::Dumper->new([$got]);
22 0           $d->Purity(1)->Terse(1)->Deepcopy(1);
23 0           print $fh $d->Dump;
24 0           undef $fh;
25             }
26 0           my $fh = IO::File->new($datafilename, 'r');
27 0           $fh->untaint;
28 0           my $data = do { local $/; <$fh> };
  0            
  0            
29 0           undef $fh;
30 0           my $expected = eval $data;
31              
32 0           return $expected;
33             }
34              
35             1;