File Coverage

t/PerlySense-user-home.t
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 47 47 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   133419 use strict;
  1         2  
  1         64  
3              
4 1     1   506 use Test::More tests => 8;
  1         15218  
  1         7  
5 1     1   633 use Test::Exception;
  1         2505  
  1         4  
6              
7 1     1   626 use Data::Dumper;
  1         6078  
  1         46  
8 1     1   5 use File::Path;
  1         0  
  1         53  
9              
10 1     1   301 use lib "../lib", "lib";
  1         528  
  1         4  
11              
12 1     1   71351 use_ok("Devel::PerlySense::Home");
  1         376  
  1         3  
  1         1  
  1         9  
13              
14              
15              
16              
17              
18 1         265 ok(
19             my $oHome = Devel::PerlySense::Home->new(),
20             "New PerlySense object ok",
21             );
22              
23              
24              
25 1         205 my $dirTemp = "./test_home_temp";
26 1         151 rmtree($dirTemp);
27 1     1   886 END { rmtree($dirTemp) }
28              
29 1         3 my $dirTempHome = "$dirTemp/.PerlySense";
30              
31              
32             {
33 1         1 note("Identify candidates");
  1         4  
34            
35 1         52 local %ENV = ();
36 1         3 is_deeply(
37             [ $oHome->aDirHomeCandidate ],
38             [ "/" ],
39             "Candidate list empty ok",
40             );
41              
42 1         793 local $ENV{HOME} = $dirTemp;
43 1         3 is_deeply(
44             [ $oHome->aDirHomeCandidate ],
45             [ $dirTemp, "/" ],
46             "Candidate list with HOME ok",
47             );
48              
49              
50            
51              
52 1         371 note("Create dir");
53 1         41 ok( ! -d $dirTemp, "No directory currently");
54              
55 1         183 like($oHome->dirHome, qr/test_home_temp..PerlySense/, "Got correct home dir");
56 1         224 like(
57             $oHome->dirHomeCache,
58             qr/test_home_temp..PerlySense.cache/,
59             "Got correct home cache dir",
60             );
61 1         213 like(
62             $oHome->dirHomeLog,
63             qr/test_home_temp..PerlySense.log/,
64             "Got correct home log dir",
65             );
66            
67             }
68              
69              
70              
71              
72             __END__