[p5sagit/p5-mst-13.2.git] / lib / CGI / t / fast.t

#!./perl -w

use lib qw(t/lib);

# Due to a bug in older versions of MakeMaker & Test::Harness, we must
# ensure the blib's are in @INC, else we might use the core CGI.pm
use lib qw(blib/lib blib/arch);

my $fcgi;
BEGIN {
	local $@;
	eval { require FCGI };
	$fcgi = $@ ? 0 : 1;
}

use Test::More tests => 7;

# Shut up "used only once" warnings.
() = $CGI::Q;
() = $CGI::Fast::Ext_Request;

SKIP: {
	skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;

	use_ok( CGI::Fast );
	ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' );
	is( $q, $CGI::Q, 'checking to see if the object was stored properly' );
	is( $q->param(), (), 'no params' );

	ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating obect with params' );
	is( $q->param('foo'), 'bar', 'checking passed param' );

	# if this is false, the package var will be empty
	$ENV{FCGI_SOCKET_PATH} = 0;
	is( $CGI::Fast::Ext_Request, '', 'checking no active request' );

}
Commit	Line	Data
b38b066d	1	#!./perl -w
b38b066d	2
8f3ccfa2	3	use lib qw(t/lib);
	4
	5	# Due to a bug in older versions of MakeMaker & Test::Harness, we must
	6	# ensure the blib's are in @INC, else we might use the core CGI.pm
	7	use lib qw(blib/lib blib/arch);
b38b066d	8
	9	my $fcgi;
	10	BEGIN {
b38b066d	11	local $@;
	12	eval { require FCGI };
	13	$fcgi = $@ ? 0 : 1;
	14	}
	15
	16	use Test::More tests => 7;
	17
ac734d8b	18	# Shut up "used only once" warnings.
	19	() = $CGI::Q;
	20	() = $CGI::Fast::Ext_Request;
	21
b38b066d	22	SKIP: {
	23	skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
	24
	25	use_ok( CGI::Fast );
	26	ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' );
	27	is( $q, $CGI::Q, 'checking to see if the object was stored properly' );
	28	is( $q->param(), (), 'no params' );
	29
	30	ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating obect with params' );
	31	is( $q->param('foo'), 'bar', 'checking passed param' );
	32
	33	# if this is false, the package var will be empty
	34	$ENV{FCGI_SOCKET_PATH} = 0;
	35	is( $CGI::Fast::Ext_Request, '', 'checking no active request' );
	36
	37	}