fix rt#66705 - localization of HOME in tests

jquelin · Jul 25, 2011 · 5b312fb · 5b312fb
1 parent 1b204ae
commit 5b312fb
Show file tree

Hide file tree

Showing 11 changed files with 41 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Revision history for Dist::Zilla::Plugin::Git
 
 {{$NEXT}}
+ - fix rt#66705 - localization of HOME in tests
  - fix rt#69616 & rt#69701 - make dzp-git work with git::wrapper 0.015
 
 1.111590  2011-06-08 09:43:35 Europe/Paris

diff --git a/t/1-check.t b/t/1-check.t
@@ -5,11 +5,15 @@ use warnings;
 
 use Dist::Zilla     1.093250;
 use Dist::Zilla::Tester;
+use File::Temp qw{ tempdir };
 use Git::Wrapper;
 use Path::Class;
 use Test::More      tests => 4;
 use Test::Exception;
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # build fake repository
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir(qw(t check)),

diff --git a/t/2-commit-build-custom.t b/t/2-commit-build-custom.t
@@ -5,11 +5,15 @@ use warnings;
 
 use Dist::Zilla  1.093250;
 use Dist::Zilla::Tester;
+use File::Temp qw{ tempdir };
 use Git::Wrapper;
 use Path::Class;
 use Test::More   tests => 5;
 use Cwd qw(cwd);
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 my $cwd = cwd();
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir($cwd, qw(t commit-build-custom)),

diff --git a/t/2-commit-build.t b/t/2-commit-build.t
@@ -5,11 +5,15 @@ use warnings;
 
 use Dist::Zilla  1.093250;
 use Dist::Zilla::Tester;
+use File::Temp qw{ tempdir };
 use Git::Wrapper;
 use Path::Class;
 use Test::More   tests => 4;
 use Cwd qw(cwd);
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 my $cwd = cwd();
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir($cwd, qw(t commit-build)),

diff --git a/t/2-commit-ws.t b/t/2-commit-ws.t
@@ -5,10 +5,14 @@ use warnings;
 
 use Dist::Zilla  1.093250;
 use Dist::Zilla::Tester;
+use File::Temp qw{ tempdir };
 use Git::Wrapper;
 use Path::Class;
 use Test::More   tests => 1;
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir(qw(t commit-ws)),
 });

diff --git a/t/2-commit.t b/t/2-commit.t
@@ -5,10 +5,14 @@ use warnings;
 
 use Dist::Zilla  1.093250;
 use Dist::Zilla::Tester;
+use File::Temp qw{ tempdir };
 use Git::Wrapper;
 use Path::Class;
 use Test::More   tests => 1;
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # build fake repository
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir(qw(t commit)),

diff --git a/t/3-tag.t b/t/3-tag.t
@@ -5,10 +5,14 @@ use warnings;
 
 use Dist::Zilla  1.093250;
 use Dist::Zilla::Tester;
+use File::Temp qw{ tempdir };
 use Git::Wrapper;
 use Path::Class;
 use Test::More   tests => 4;
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # build fake repository
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir(qw(t tag)),

diff --git a/t/4-push-multi.t b/t/4-push-multi.t
@@ -12,6 +12,9 @@ use Path::Class;
 use Test::More;
 use version;
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # build fake repository
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir(qw(t push-multi)),

diff --git a/t/4-push.t b/t/4-push.t
@@ -12,6 +12,9 @@ use Path::Class;
 use Test::More;
 use version;
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # build fake repository
 my $zilla = Dist::Zilla::Tester->from_config({
   dist_root => dir(qw(t push)),

diff --git a/t/5-version-default.t b/t/5-version-default.t
@@ -4,6 +4,7 @@ use warnings;
 use Dist::Zilla::Tester;
 use Git::Wrapper;
 use Path::Class;
+use File::Temp  qw{ tempdir };
 use File::pushd qw/pushd tempd/;
 use File::Copy::Recursive qw/dircopy/;
 
@@ -14,6 +15,9 @@ BEGIN {
   @INC = map {; ref($_) ? $_ : dir($_)->absolute->stringify } @INC;
 }
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # save absolute corpus directory path
 my $corpus_dir = dir('corpus/version-default')->absolute;
 

diff --git a/t/5-version-regexp.t b/t/5-version-regexp.t
@@ -4,8 +4,9 @@ use warnings;
 use Dist::Zilla::Tester;
 use Git::Wrapper;
 use Path::Class;
-use File::pushd qw/pushd tempd/;
-use File::Copy::Recursive qw/dircopy/;
+use File::Copy::Recursive qw{ dircopy };
+use File::Temp            qw{ tempdir };
+use File::pushd           qw{ pushd tempd };
 
 use Test::More 0.88 tests => 6;
 
@@ -14,6 +15,9 @@ BEGIN {
   @INC = map {; ref($_) ? $_ : dir($_)->absolute->stringify } @INC;
 }
 
+# Mock HOME to avoid ~/.gitexcludes from causing problems
+$ENV{HOME} = tempdir( CLEANUP => 1 );
+
 # save absolute corpus directory path
 my $corpus_dir = dir('corpus/version-regexp')->absolute;