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" );
+}