diff options
Diffstat (limited to 't/10_test.t')
-rw-r--r-- | t/10_test.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/t/10_test.t b/t/10_test.t new file mode 100644 index 0000000..fc38c30 --- /dev/null +++ b/t/10_test.t @@ -0,0 +1,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" ); +} |