File Coverage

t/PerlySense-document-grep-in-dir.t
Criterion Covered Total %
statement 44 44 100.0
branch 1 2 50.0
condition n/a
subroutine 13 13 100.0
pod n/a
total 58 59 98.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   122946 use strict;
  1         2  
  1         72  
3              
4 1     1   586 use Test::More tests => 4;
  1         15866  
  1         8  
5 1     1   1017 use Test::Exception;
  1         2536  
  1         3  
6              
7 1     1   592 use Data::Dumper;
  1         6217  
  1         49  
8 1     1   4 use File::Basename;
  1         1  
  1         61  
9 1     1   287 use File::Spec::Functions;
  1         427  
  1         58  
10              
11 1     1   261 use lib "../lib";
  1         534  
  1         3  
12              
13 1     1   79217 use_ok("Devel::PerlySense");
  1         733  
  1         2  
  1         2  
  1         5  
14              
15 1 50   1   1477 BEGIN { -d "t" and chdir("t"); }
16              
17              
18 1         273 ok(my $oPs = Devel::PerlySense->new(), "new ok");
19              
20              
21 1         195 my $dirData = "data/project-lib";
22 1         3 my $dirOrigin = "$dirData/Game";
23              
24             my @aDocument = $oPs->aDocumentGrepInDir(
25             dir => $dirOrigin,
26 17     17   18 rsGrepFile => sub { 1; },
27 17     17   63 rsGrepDocument => sub { 1 },
28 1         7 );
29             #warn Dumper([ sort map { $_->namespace } map { @{$_->oMeta->raPackage} } @aDocument ]);
30 17         349 is_deeply(
31 1         7 [ sort map { $_->namespace } map { @{$_->oMeta->raPackage} } @aDocument ],
  17         431  
  17         374  
32             [ sort qw/
33             Game::Application
34             Game::Controller
35             Game::Direction
36             Game::Event::Timed
37             Game::Lawn
38             Game::Location
39             Game::Object
40             Game::ObjectVisible
41             Game::Object::WormVisible
42             Game::Object::Prize
43             Game::Object::Wall
44             Game::Object::Worm
45             Game::Object::Worm::Bot
46             Game::Object::Worm::ShaiHulud
47             Game::Object::Worm::Shaitan
48             Game::UI
49             Game::UI::None
50             /],
51             "aDocumentGrepInDir found all filed under dir",
52             );
53              
54              
55              
56             @aDocument = $oPs->aDocumentGrepInDir(
57             dir => $dirOrigin,
58 17     17   29 rsGrepFile => sub { $_ =~ /none/i },
59 1     1   4 rsGrepDocument => sub { 1 },
60 1         641 );
61 1         44 is_deeply(
62 1         87290 [ sort map { $_->namespace } map { @{$_->oMeta->raPackage} } @aDocument ],
  1         2  
  1         67  
63             [ sort qw/ Game::UI::None /],
64             "aDocumentGrepInDir found all filed under dir",
65             );
66              
67              
68              
69             __END__