Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24585/t
Modified Files:
basic.t compat.t ext.t install.t runthrough.t signature.t xs.t
Log Message:
Integrate from branch.
Index: signature.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/signature.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- signature.t 2 Sep 2003 16:33:04 -0000 1.7
+++ signature.t 7 Jan 2005 10:15:54 -0000 1.8
@@ -2,7 +2,9 @@
use strict;
use Test;
use File::Spec;
-require File::Spec->catfile('t', 'common.pl');
+
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
use Module::Build;
skip_test("Skipping unless \$ENV{TEST_SIGNATURE} is true") unless $ENV{TEST_SIGNATURE};
Index: runthrough.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- runthrough.t 30 Nov 2004 03:10:46 -0000 1.50
+++ runthrough.t 7 Jan 2005 10:15:54 -0000 1.51
@@ -10,8 +10,8 @@
ok(1);
ok $INC{'Module/Build.pm'}, '/blib/', "Make sure version from blib/ is loaded";
-
-require File::Spec->catfile('t', 'common.pl');
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
######################### End of black magic.
Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ext.t 13 Dec 2004 04:37:44 -0000 1.6
+++ ext.t 7 Jan 2005 10:15:53 -0000 1.7
@@ -3,7 +3,8 @@
use Test;
use File::Spec;
-require File::Spec->catfile('t', 'common.pl');
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
my @unix_splits =
(
Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- compat.t 28 Dec 2004 05:13:50 -0000 1.19
+++ compat.t 7 Jan 2005 10:15:53 -0000 1.20
@@ -5,7 +5,9 @@
use File::Spec;
use File::Path;
use Config;
-require File::Spec->catfile('t', 'common.pl');
+
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
use Carp; $SIG{__WARN__} = \&Carp::cluck;
@@ -144,8 +146,11 @@
ok (! -e 'Makefile.PL', 1);
}
-{
- # Make sure tilde-expansion works
+{ # Make sure tilde-expansion works
+
+ # C<glob> on MSWin32 uses $ENV{HOME} if defined to do tilde-expansion
+ local $ENV{HOME} = 'C:/' if $^O =~ /MSWin/ && !exists( $ENV{HOME} );
+
Module::Build::Compat->create_makefile_pl('passthrough', $build);
$build->run_perl_script('Makefile.PL', [], ['INSTALL_BASE=~/foo']);
Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- install.t 26 Dec 2004 05:10:52 -0000 1.13
+++ install.t 7 Jan 2005 10:15:53 -0000 1.14
@@ -1,14 +1,15 @@
use strict;
use Test;
-BEGIN { plan tests => 31 }
+BEGIN { plan tests => 30 }
+
use Module::Build;
use File::Spec;
use File::Path;
use Config;
-ok(1);
-require File::Spec->catfile('t', 'common.pl');
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
my $start_dir = Module::Build->cwd;
Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- basic.t 4 Jan 2005 05:26:39 -0000 1.35
+++ basic.t 7 Jan 2005 10:15:53 -0000 1.36
@@ -8,7 +8,9 @@
use File::Spec;
use Cwd;
-require File::Spec->catfile('t', 'common.pl');
+
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
######################### End of black magic.
Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- xs.t 10 Oct 2004 04:19:29 -0000 1.15
+++ xs.t 7 Jan 2005 10:15:54 -0000 1.16
@@ -9,7 +9,8 @@
print("1..0 # Skipped: C_support not enabled\n"), exit(0) unless Module::Build->current->feature('C_support');
plan tests => 12;
-require File::Spec->catfile('t', 'common.pl');
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
######################### End of black magic.
|
