[Module-build-checkins] Module-Build/t basic.t,1.35,1.36 compat.t,1.19,1.20 ext.t,1.6,1.7 install.t,1.13,1.14 runthrough.t,1.50,1.51 signature.t,1.7,1.8 xs.t,1.15,1.16

[Randy W. S. <si...@us...>]

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.