summaryrefslogtreecommitdiff
path: root/t/01_compile.t
diff options
context:
space:
mode:
Diffstat (limited to 't/01_compile.t')
-rw-r--r--t/01_compile.t37
1 files changed, 37 insertions, 0 deletions
diff --git a/t/01_compile.t b/t/01_compile.t
new file mode 100644
index 0000000..44b7335
--- /dev/null
+++ b/t/01_compile.t
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+# Compile-testing for File::HomeDir
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+use File::Spec::Functions ':ALL';
+
+use Test::More tests => 11;
+
+# This module is destined for the core.
+# Please do NOT use convenience modules
+# use English; <-- don't do this
+
+ok( $] > 5.00503, 'Perl version is 5.005 or newer' );
+
+use_ok( 'File::HomeDir::Driver' );
+use_ok( 'File::HomeDir::Unix' );
+use_ok( 'File::HomeDir::FreeDesktop' );
+use_ok( 'File::HomeDir::Darwin' );
+use_ok( 'File::HomeDir::Darwin::Carbon' );
+use_ok( 'File::HomeDir::Darwin::Cocoa' );
+use_ok( 'File::HomeDir::Windows' );
+use_ok( 'File::HomeDir::MacOS9' );
+use_ok( 'File::HomeDir' );
+
+ok( defined &home, 'Using File::HomeDir exports home()' );
+
+# Note the driver we are using for the purposes of
+# understanding CPAN Testers failure reports.
+diag( "Implemented by: $File::HomeDir::IMPLEMENTED_BY" );
+
+# Prevent a warning
+$File::HomeDir::IMPLEMENTED_BY = $File::HomeDir::IMPLEMENTED_BY;