File Coverage

t/PerlySense.t
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   109450 use strict;
  1         2  
  1         93  
3 1     1   466 use Test::More tests => 7;
  1         14318  
  1         7  
4 1     1   605 use Test::Exception;
  1         2515  
  1         4  
5              
6 1     1   204 use File::Basename;
  1         1  
  1         101  
7 1     1   265 use File::Spec::Functions;
  1         492  
  1         61  
8              
9 1     1   260 use lib "../lib", "lib";
  1         520  
  1         4  
10              
11              
12              
13 1     1   70332 use_ok("Devel::PerlySense");
  1         883  
  1         3  
  1         1  
  1         6  
14              
15 1         273 ok(my $oPs = Devel::PerlySense->new(), "new ok");
16 1         219 isa_ok($oPs->oProject, "Devel::PerlySense::Project", " oProject property");
17 1         261 isa_ok($oPs->oHome, "Devel::PerlySense::Home", " oHome property");
18              
19              
20 1         221 is($oPs->fileFromModule("Foo"), "Foo.pm", "fileFromModule ok");
21 1         200 is($oPs->fileFromModule("Foo::Bar"), catfile("Foo", "Bar") . ".pm", "fileFromModule ok");
22 1         197 is($oPs->fileFromModule("Foo::Bar::Baz"), catfile("Foo", "Bar", "Baz") . ".pm", "fileFromModule ok");
23              
24              
25              
26             __END__