line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
1
|
|
|
1
|
|
244998
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
64
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
521
|
use Test::More tests => 14; |
|
1
|
|
|
|
|
25178
|
|
|
1
|
|
|
|
|
8
|
|
5
|
1
|
|
|
1
|
|
723
|
use Test::Exception; |
|
1
|
|
|
|
|
3324
|
|
|
1
|
|
|
|
|
4
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
230
|
use Cwd; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
96
|
|
8
|
1
|
|
|
1
|
|
419
|
use Data::Dumper; |
|
1
|
|
|
|
|
6033
|
|
|
1
|
|
|
|
|
42
|
|
9
|
1
|
|
|
1
|
|
385
|
use Path::Class; |
|
1
|
|
|
|
|
32980
|
|
|
1
|
|
|
|
|
46
|
|
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
332
|
use lib ("lib", "../lib"); |
|
1
|
|
|
|
|
516
|
|
|
1
|
|
|
|
|
4
|
|
12
|
|
|
|
|
|
|
|
13
|
1
|
|
|
1
|
|
338
|
use Devel::PerlySense::Util::Log; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
58
|
|
14
|
|
|
|
|
|
|
|
15
|
1
|
|
|
1
|
|
87894
|
use_ok("Devel::PerlySense::Project"); |
|
1
|
|
|
|
|
380
|
|
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
8
|
|
16
|
1
|
|
|
1
|
|
276
|
use_ok("Devel::PerlySense"); |
|
1
|
|
|
|
|
75
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
5
|
|
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
1
|
50
|
|
1
|
|
1655
|
BEGIN { -d "t" and chdir("t"); } |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
23
|
1
|
|
|
|
|
193
|
ok( |
24
|
|
|
|
|
|
|
my $oPerlySense = Devel::PerlySense->new(), |
25
|
|
|
|
|
|
|
"New PerlySense object ok", |
26
|
|
|
|
|
|
|
); |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
|
30
|
1
|
|
|
|
|
194
|
my $dirBase = "data/project/with-perlysenseproject"; |
31
|
1
|
|
|
|
|
3
|
my $dirProject = "$dirBase/source"; |
32
|
|
|
|
|
|
|
|
33
|
1
|
|
|
|
|
3
|
my $dirTest = "$dirProject/bogus/lib/Game"; |
34
|
1
|
|
|
|
|
2
|
my $fileTest = "$dirTest/Lawn.pm"; |
35
|
|
|
|
|
|
|
|
36
|
1
|
|
|
|
|
3
|
my @aDirTest = ( |
37
|
|
|
|
|
|
|
"glib/perl5lib", |
38
|
|
|
|
|
|
|
"deps/perl5lib", |
39
|
|
|
|
|
|
|
"../../with-dir/source/lib", |
40
|
|
|
|
|
|
|
); |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
|
43
|
1
|
|
|
|
|
4
|
ok($oPerlySense->setFindProject(file => $fileTest), "Found Project"); |
44
|
1
|
|
|
|
|
323
|
my $oProject = $oPerlySense->oProject; |
45
|
1
|
|
|
|
|
7
|
like($oProject->dirProject, qr/with-perlysenseproject.source$/, "Got good project root dir"); |
46
|
1
|
|
|
|
|
205
|
is_deeply( |
47
|
|
|
|
|
|
|
$oPerlySense->rhConfig->{project}->{inc_dir}, |
48
|
|
|
|
|
|
|
[ @aDirTest ], |
49
|
|
|
|
|
|
|
); |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
|
52
|
1
|
|
|
|
|
453
|
my $file; |
53
|
|
|
|
|
|
|
|
54
|
1
|
|
|
|
|
3
|
$file = $fileTest; |
55
|
1
|
|
|
|
|
5
|
ok(!$oProject->isFileInProject(file => "dsfjdslk"), "Completely missing file is not in project"); |
56
|
|
|
|
|
|
|
|
57
|
1
|
|
|
|
|
273
|
ok( $oProject->isFileInProject(file => $fileTest), "Same file is in project"); |
58
|
1
|
|
|
|
|
200
|
ok( $oProject->isFileInProject(file => "$fileTest.missing"), "Missing file that could be in project is. It does not have to exist"); |
59
|
|
|
|
|
|
|
|
60
|
1
|
|
|
|
|
260
|
ok(!$oProject->isFileInProject(file => "data/inc-lib/Game/Object/Worm.pm"), "Existing file outside of project isn't in project"); |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
|
63
|
1
|
|
|
|
|
268
|
note("Test inc_dir"); |
64
|
|
|
|
|
|
|
#This dir is in the inc_dir according to the loaded yaml config |
65
|
1
|
50
|
|
|
|
46
|
ok( |
66
|
|
|
|
|
|
|
$oProject->isFileInProject(file => "data/project/with-dir/source/lib/Game/Lawn.pm"), |
67
|
|
|
|
|
|
|
"Missing file that could be in project is. It does not have to exist", |
68
|
|
|
|
|
|
|
) or warn( Devel::PerlySense::Util::Log->_textTailDebug() . "\n\nTEST FAILED, THIS ABOVE TEXT IS THE RECENT DEBUG LOG FOR DIAGNOSTICS PURPOSES.\nSORRY ABOUT SPAMMING LIKE THIS, BUT I NEED THE OUTPUT TO FIGURE OUT WHAT'S WRONG\n" ); |
69
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
|
73
|
1
|
|
|
|
|
290
|
note("inc_dir"); |
74
|
1
|
|
|
|
|
6930
|
my $dirBaseAbs = dir(cwd(), $dirProject); |
75
|
1
|
|
|
|
|
2640
|
my %hIncDirAbsolute = map { $_ => 1 } $oProject->aDirIncAbsolute; |
|
5
|
|
|
|
|
29
|
|
76
|
|
|
|
|
|
|
|
77
|
1
|
|
|
|
|
10
|
for my $dir (@aDirTest) { |
78
|
3
|
|
|
|
|
3869
|
my $dirAbs = dir($dirBaseAbs, $dir ); |
79
|
3
|
|
|
|
|
235
|
ok( $hIncDirAbsolute{$dirAbs}, "Found absolute dir for ($dir) ($dirAbs)"); |
80
|
|
|
|
|
|
|
} |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
__END__ |