blob: fc38c30fb22e049349cf67ad82ee378c56794c53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
# Testing for the test driver
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use File::Spec::Functions ':ALL';
use Test::More tests => 30;
use File::HomeDir::Test;
use File::HomeDir;
# Is the test driver enabled?
is( $File::HomeDir::Test::ENABLED, 1, 'File::HomeDir::Test is enabled' );
is( $File::HomeDir::IMPLEMENTED_BY, 'File::HomeDir::Test', 'IMPLEMENTED_BY is correct' );
# Was everything hijacked correctly?
foreach my $method ( qw{
my_home
my_desktop
my_documents
my_data
my_music
my_pictures
my_videos
} ) {
my $dir = File::HomeDir->$method();
ok( $dir, "$method: Got a directory" );
ok( -d $dir, "$method: Directory exists at $dir" );
ok( -r $dir, "$method: Directory is readable" );
ok( -w $dir, "$method: Directory is writeable" );
}
|