[svn:Module-Build] r13233 - Module-Build/trunk/t

[dagolden]

Author: dagolden
Date: Sat Aug 29 07:36:55 2009
New Revision: 13233

Modified:
   Module-Build/trunk/t/share_dir.t

Log:
test share_dir using File::ShareDir if available

Modified: Module-Build/trunk/t/share_dir.t
==============================================================================
--- Module-Build/trunk/t/share_dir.t    (original)
+++ Module-Build/trunk/t/share_dir.t    Sat Aug 29 07:36:55 2009
@@ -9,7 +9,7 @@
 # Begin testing
 #--------------------------------------------------------------------------#
 
-plan tests => 19;
+plan tests => 21;
 
 require_ok('Module::Build');
 ensure_blib('Module::Build');
@@ -207,4 +207,20 @@
   "share_dir files correctly installed"
 );
 
+#--------------------------------------------------------------------------#
+# test with File::ShareDir
+#--------------------------------------------------------------------------#
 
+SKIP: {
+  eval { require File::ShareDir; File::ShareDir->VERSION(1.00) };
+  skip "needs File::ShareDir 1.00", 2 if $@;
+  
+  unshift @INC, File::Spec->catdir($temp_install, qw/lib perl5/);
+  require Simple::Share;
+
+  eval {File::ShareDir::dist_file('Simple-Share','foo.txt') };
+  is( $@, q{}, "Found shared dist file" );
+
+  eval {File::ShareDir::module_file('Simple::Share','bar.txt') };
+  is( $@, q{}, "Found shared module file" );
+}