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; | |
18 | is_deeply \@TestAppToTestScripts::RUN_ARGS, [], "no args"; | |
19 | ||
20 | done_testing; |