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=cb1e348badf54b4ceacca793b0baa6312e2a7e5d;hp=01b2dd23a6fd36258a3345f4dffc051b0a99c4a8;hpb=d9d41c5af176289832bdb455ec18d3436cf69330;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/unit_core_script_server.t b/t/aggregate/unit_core_script_server.t index 01b2dd2..7cd6fb4 100644 --- a/t/aggregate/unit_core_script_server.t +++ b/t/aggregate/unit_core_script_server.t @@ -5,11 +5,13 @@ 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; @@ -204,5 +206,7 @@ sub restartopthash { return $val; } +chdir($cwd); + 1;