7 use File::Temp qw/ tempdir /;
10 use_ok('Catalyst::ScriptRunner');
14 my $d = tempdir(); #CLEANUP => 1);
17 mkdir(File::Spec->catdir("lib", "MyApp")) or die;
18 mkdir(File::Spec->catdir("lib", "MyApp", "Script")) or die;
20 open(my $fh, '>', 'Makefile.PL') or die;
23 open($fh, '>', File::Spec->catdir("lib", "MyApp", "Script", "Foo.pm")) or die;
24 print $fh q{package MyApp::Script::Foo;
26 use namespace::autoclean;
28 with 'Catalyst::ScriptRole';
30 sub run { __PACKAGE__ }
36 use_ok 'Catalyst::ScriptRunner';
38 is Catalyst::ScriptRunner->run('MyApp', 'Foo'), 'MyApp::Script::Foo';