[catagits/Catalyst-Runtime.git] / t / aggregate / unit_core_script_cgi.t

#!/usr/bin/env perl
use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/../lib";

use Test::More;
use Test::Fatal;

use Catalyst::Script::CGI;

local @ARGV;
is exception {
    Catalyst::Script::CGI->new_with_options(application_name => 'TestAppToTestScripts')->run;
}, undef, "new_with_options";
shift @TestAppToTestScripts::RUN_ARGS;
my $server = pop @TestAppToTestScripts::RUN_ARGS;
like ref($server), qr/^Plack::Handler/, 'Is a Plack::Handler';
is ref(delete($TestAppToTestScripts::RUN_ARGS[0]->{argv})), 'ARRAY';
is ref(delete($TestAppToTestScripts::RUN_ARGS[0]->{extra_argv})), 'ARRAY';
is_deeply \@TestAppToTestScripts::RUN_ARGS, [{}], "no args";

done_testing;
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;
2a56ace9	9	use Test::Fatal;
4f0612fd	10
	11	use Catalyst::Script::CGI;
	12
	13	local @ARGV;
2a56ace9	14	is exception {
4f0612fd	15	Catalyst::Script::CGI->new_with_options(application_name => 'TestAppToTestScripts')->run;
2a56ace9	16	}, undef, "new_with_options";
4f0612fd	17	shift @TestAppToTestScripts::RUN_ARGS;
b17bc48c	18	my $server = pop @TestAppToTestScripts::RUN_ARGS;
b17bc48c	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
4f0612fd	24	done_testing;