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