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