X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_script_server.t;h=7cd6fb4986e9d578e5bc3ddc1cf962e69db19606;hb=cfb8879d62b804cb574bf5608dd41cfb87d3559a;hp=e31c8973a32078de7b23b52ed23cd23e0a7e0d7c;hpb=71782f3efc0ecb7317e738fba387da6b8c7ea85d;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/unit_core_script_server.t b/t/aggregate/unit_core_script_server.t
index e31c897..7cd6fb4 100644
--- a/t/aggregate/unit_core_script_server.t
+++ b/t/aggregate/unit_core_script_server.t
@@ -4,11 +4,16 @@ use warnings;
 use FindBin qw/$Bin/;
 use lib "$Bin/../lib";
 
+use File::Temp qw/ tempdir /;
+use Cwd;
 use Test::More;
 use Try::Tiny;
 
 use Catalyst::Script::Server;
 
+my $cwd = getcwd;
+chdir(tempdir(CLEANUP => 1));
+
 my $testopts;
 
 # Test default (no opts/args behaviour)
@@ -201,5 +206,7 @@ sub restartopthash {
     return $val;
 }
 
+chdir($cwd);
+
 1;