skip test if .cpan/sources/ is owned by other user.

kazuho · Jan 16, 2010 · 75764d8 · 75764d8
1 parent 298364e
commit 75764d8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/t/01build-perl.t b/t/01build-perl.t
@@ -4,6 +4,9 @@ use warnings;
 use Cwd;
 use File::Temp qw(tempdir);
 use Test::More;
+use CPAN::Inject;
+
+plan skip_all => "CPAN::Inject->from_cpan_config() failed: $@." unless eval "CPAN::Inject->from_cpan_config(); 1;";
 
 $| = 1;