11 use Catalyst::Script::CGI;
15 Catalyst::Script::CGI->new_with_options(application_name => 'TestAppToTestScripts')->run;
17 shift @TestAppToTestScripts::RUN_ARGS;
18 my $server = pop @TestAppToTestScripts::RUN_ARGS;
19 like ref($server), qr/^Plack::Handler/, 'Is a Plack::Handler';
20 is ref(delete($TestAppToTestScripts::RUN_ARGS[0]->{argv})), 'ARRAY';
21 is ref(delete($TestAppToTestScripts::RUN_ARGS[0]->{extra_argv})), 'ARRAY';
22 is_deeply \@TestAppToTestScripts::RUN_ARGS, [{}], "no args";