File Coverage

t/PerlySense-Project-vcs.t
Criterion Covered Total %
statement 38 38 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 48 49 97.9


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   154798 use strict;
  1         2  
  1         64  
3              
4 1     1   1241 use Test::More tests => 5;
  1         18589  
  1         8  
5 1     1   1670 use Test::Exception;
  1         19214  
  1         6  
6              
7 1     1   1444 use Data::Dumper;
  1         11581  
  1         139  
8              
9 1     1   617 use lib ("lib", "../lib");
  1         549  
  1         3  
10              
11 1     1   1105 use Devel::PerlySense::Util::Log;
  1         2  
  1         69  
12              
13 1     1   140210 use_ok("Devel::PerlySense::Project");
  1         339  
  1         3  
  1         1  
  1         8  
14 1     1   273 use_ok("Devel::PerlySense");
  1         73  
  1         1  
  1         2  
  1         5  
15              
16              
17 1 50   1   2633 BEGIN { -d "t" and chdir("t"); }
18              
19              
20              
21 1         192 ok(
22             my $oPerlySense = Devel::PerlySense->new(),
23             "New PerlySense object ok",
24             );
25              
26              
27              
28 1         190 my $dirBase = "data/project/with-git/source";
29 1         3 my $dirProject = "$dirBase/bogus";
30              
31 1         3 my $fileTest = "$dirProject/t/Game-Lawn.t";
32 1         3 ok($oPerlySense->setFindProject(file => $fileTest), "Set project ok");
33              
34              
35              
36 1         229 my $oProject = $oPerlySense->oProject;
37              
38 1         2 TODO: {
39 1         4 local $TODO = "
40             Can't find a Git repo if it's inside a SVN repo,
41             but that's perfectly ok";
42 1         4 is($oProject->nameVcs, "git", "Found vcs 'git'");
43             }
44              
45              
46              
47              
48              
49              
50             __END__