t/aggregate/unit_core_script_cgi.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/../lib";
   6
   7 use Test::More;
   8 use Test::Fatal;
   9
  10 use Catalyst::Script::CGI;
  11
  12 local @ARGV;
  13 is exception {
  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";
  22
  23 done_testing;