X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_scriptrunner_home.t;fp=t%2Faggregate%2Funit_core_scriptrunner_home.t;h=0000000000000000000000000000000000000000;hp=0816d25e6182badbd32c78950f952fd10cf79ec3;hb=a8946dc8b4ba4c46b4db564b8f9692d48cc7a62f;hpb=7f0a549ee025a2057aa4a760b6f4ef4f54ec36a3 diff --git a/t/aggregate/unit_core_scriptrunner_home.t b/t/aggregate/unit_core_scriptrunner_home.t deleted file mode 100644 index 0816d25..0000000 --- a/t/aggregate/unit_core_scriptrunner_home.t +++ /dev/null @@ -1,42 +0,0 @@ -use strict; -use warnings; -use Test::More; -use FindBin qw/$Bin/; -use Test::Exception; -use lib "$Bin/../lib"; -use File::Temp qw/ tempdir /; -use Cwd; - -use_ok('Catalyst::ScriptRunner'); - -my $cwd = cwd(); - -my $d = tempdir(); #CLEANUP => 1); -chdir($d) or die; -mkdir("lib") or die; -mkdir(File::Spec->catdir("lib", "MyApp")) or die; -mkdir(File::Spec->catdir("lib", "MyApp", "Script")) or die; - -open(my $fh, '>', 'Makefile.PL') or die; -close($fh) or die; - -open($fh, '>', File::Spec->catdir("lib", "MyApp", "Script", "Foo.pm")) or die; -print $fh q{package MyApp::Script::Foo; -use Moose; -use namespace::autoclean; - -with 'Catalyst::ScriptRole'; - -sub run { __PACKAGE__ } - -1; -}; -close($fh) or die; - -use_ok 'Catalyst::ScriptRunner'; - -is Catalyst::ScriptRunner->run('MyApp', 'Foo'), 'MyApp::Script::Foo'; - -chdir($cwd) or die; - -done_testing;