Author: dagolden
Date: Sat Aug 8 04:36:04 2009
New Revision: 13178
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/t/runthrough.t
Log:
change from test.pl to basic.t in sample dist in runthrough.t
The test.pl had an bizarre failure on 5.6.2 trying to check for
blib. Since runthrough.t is really testing dist build capabilities
we don't want a test that can fail and interrupt that process.
Dropped test.pl and restored basic.t so we have a test that always
will pass.
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Sat Aug 8 04:36:04 2009
@@ -6,6 +6,7 @@
- Fixed failing xs.t if /tmp is mounted noexec (RT#47331) [David Golden]
- Fixed failing debug.t on VMS (RT#48362) [Craig Berry]
- Prevent par.t from dying on error in .zip extraction [David Golden]
+ - Fixed potential runthrough.t failure on 5.6.2 [David Golden]
Other:
- Archive::Tar changed from 'requires' to 'recommends' so non-authors
Modified: Module-Build/trunk/t/runthrough.t
==============================================================================
--- Module-Build/trunk/t/runthrough.t (original)
+++ Module-Build/trunk/t/runthrough.t Sat Aug 8 04:36:04 2009
@@ -16,7 +16,6 @@
use DistGen;
my $dist = DistGen->new( dir => $tmp );
-$dist->remove_file( 't/basic.t' );
$dist->change_build_pl
({
module_name => 'Simple',
@@ -29,22 +28,6 @@
#!perl -w
print "Hello, World!\n";
---
-$dist->add_file( 'test.pl', <<'---' );
-#!/usr/bin/perl
-
-use Test;
-plan tests => 2;
-
-ok 1;
-
-require Module::Build;
-skip $ENV{PERL_CORE} && "no blib in core",
- $INC{'Module/Build.pm'}, qr/blib/, 'Module::Build should be loaded from
blib';
-
-print "# Cwd: ", Module::Build->cwd, "\n";
-print "# \...@inc: (@INC)\n";
-print "Done.\n"; # t/compat.t looks for this
----
$dist->add_file( 'lib/Simple/Script.PL', <<'---' );
#!perl -w
@@ -116,9 +99,9 @@
unless ($all_ok) {
# We use diag() so Test::Harness doesn't get confused.
- diag("vvvvvvvvvvvvvvvvvvvvv Simple/test.pl output vvvvvvvvvvvvvvvvvvvvv");
+ diag("vvvvvvvvvvvvvvvvvvvvv Simple/t/basic.t output
vvvvvvvvvvvvvvvvvvvvv");
diag($output);
- diag("^^^^^^^^^^^^^^^^^^^^^ Simple/test.pl output ^^^^^^^^^^^^^^^^^^^^^");
+ diag("^^^^^^^^^^^^^^^^^^^^^ Simple/t/basic.t output
^^^^^^^^^^^^^^^^^^^^^");
}
}
