File Coverage

t/PerlySense-Document-signature-survey.t
Criterion Covered Total %
statement 29 29 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 38 39 97.4


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   170691 use strict;
  1         1  
  1         65  
3              
4 1     1   490 use Test::More tests => 4;
  1         25951  
  1         9  
5 1     1   1683 use Test::Exception;
  1         6151  
  1         6  
6              
7 1     1   290 use File::Basename;
  1         1  
  1         126  
8 1     1   442 use File::Spec::Functions;
  1         530  
  1         65  
9              
10 1     1   310 use lib "../lib";
  1         607  
  1         4  
11              
12 1     1   97221 use_ok("Devel::PerlySense::Document");
  1         443  
  1         2  
  1         2  
  1         9  
13              
14              
15 1 50   1   1493 BEGIN { -d "t" and chdir("t"); }
16              
17              
18 1         304 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
19              
20 1         316 my $dirData = "data/simple-lib";
21 1         3 my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm";
22              
23 1         3 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
24              
25 1         318 is(
26             $oDocument->stringSignatureSurveyFromFile(),
27             q|===;;;";"";"";";";";";";";";";";";;";;";;";;;;;";;";;;";;";;;;";;;;;;";;";;;;";;";;;";;";;";==S{";};;';;;;;;;;;";;'";;=====;===S{;;;;;;;';;";";;";";;';';}=S{;;;";"'";;{'};;";;;;}=S{;;";{"}";;{};{;"{";};};}=S{;;;}=S{;;;{};;;}==S{;;;;;}=S{;;{;}{;};;;}=S{;;;;;;;}=S{;;";;;;{;};{;"{";};};}=S{;";";}=S{;;;;";";}=S{;;;}=S{;;;;;}=S{;;;}=S{;;;;;}==S{;;{;}{;};;;}=S{;{;};;}=S{;;{;}{';;}{;};;;}==S{;;";;;;;}=S{;;;;}=S{;;;;}=S{;;;;";;}==S{;{};;}=S{;;;}==S{;";";;;;;;;}=S{;;{;";";};}==S{;;;;}=S{;;{};;}=S{;;;;;}==S{;;;}=SA{;"";;}=S{;;;;';;{"";}};=============;============;|,
28             "Signature survey for Writer ok",
29             );
30              
31              
32              
33              
34             __END__