| 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__ |