Commit | Line | Data |
4f0612fd |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use FindBin qw/$Bin/; |
5 | use lib "$Bin/../lib"; |
6 | |
7 | use Test::More; |
2a56ace9 |
8 | use Test::Fatal; |
4f0612fd |
9 | |
10 | use Catalyst::Script::CGI; |
11 | |
12 | local @ARGV; |
2a56ace9 |
13 | is exception { |
4f0612fd |
14 | Catalyst::Script::CGI->new_with_options(application_name => 'TestAppToTestScripts')->run; |
2a56ace9 |
15 | }, undef, "new_with_options"; |
4f0612fd |
16 | shift @TestAppToTestScripts::RUN_ARGS; |
b17bc48c |
17 | my $server = pop @TestAppToTestScripts::RUN_ARGS; |
18 | like ref($server), qr/^Plack::Handler/, 'Is a Plack::Handler'; |
aee7cdcc |
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"; |
4f0612fd |
22 | |
23 | done_testing; |