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