Author: dagolden
Date: Mon Nov 23 04:40:42 2009
New Revision: 13580
Modified:
Module-Build/trunk/t/bundle_inc.t
Log:
disable bundle_inc in core
Modified: Module-Build/trunk/t/bundle_inc.t
==============================================================================
--- Module-Build/trunk/t/bundle_inc.t (original)
+++ Module-Build/trunk/t/bundle_inc.t Mon Nov 23 04:40:42 2009
@@ -14,7 +14,10 @@
blib_load('Module::Build');
blib_load('Module::Build::ConfigData');
-if ( Module::Build::ConfigData->feature('inc_bundling_support') ) {
+if ( $ENV{PERL_CORE} ) {
+ plan skip_all => 'bundle_inc tests will never succeed in PERL_CORE';
+}
+elsif ( Module::Build::ConfigData->feature('inc_bundling_support') ) {
plan tests => 18;
} else {
plan skip_all => 'inc_bundling_support feature is not enabled';
@@ -74,11 +77,10 @@
);
# Force bundled M::B to a higher version so it gets loaded
-# This has failed on Win32 for various reasons, so we'll skip if
+# This has failed on Win32 for no known reason, so we'll skip if
# we can't edit the file.
eval {
- chmod 0644, $mb_file; # seem to need this on Win32
my $fh;
$fh = IO::File->new($mb_file, "<") or die "Could not read $mb_file: $!";
my $mb_code = do { local $/; <$fh> };
@@ -100,13 +102,11 @@
stdout_of( sub { Module::Build->run_perl_script('Build.PL',[],[]) } );
- {
- my $meta = IO::File->new('MYMETA.yml');
- ok( $meta, "found MYMETA.yml" );
- ok( scalar( grep { /generated_by:.*9999/ } <$meta> ),
- "dist_dir Build.PL loaded bundled Module::Build"
- );
- }
+ my $meta = IO::File->new('MYMETA.yml');
+ ok( $meta, "found MYMETA.yml" );
+ ok( scalar( grep { /generated_by:.*9999/ } <$meta> ),
+ "dist_dir Build.PL loaded bundled Module::Build"
+ );
#--------------------------------------------------------------------------#
# test identification of dependencies
