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

#!./perl -w

use vars qw( $CGI::Q $CGI::Fast::Ext_Request );

my $fcgi;
BEGIN {
	chdir 't' if -d 't';

	# unshift, don't assign, so FCGI can be found if it's installed
	# unlikely, but possible
	unshift @INC, '../lib';

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

use Test::More tests => 7;

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
	2
	3	use vars qw( $CGI::Q $CGI::Fast::Ext_Request );
	4
	5	my $fcgi;
	6	BEGIN {
	7	chdir 't' if -d 't';
	8
	9	# unshift, don't assign, so FCGI can be found if it's installed
	10	# unlikely, but possible
	11	unshift @INC, '../lib';
	12
	13	local $@;
	14	eval { require FCGI };
	15	$fcgi = $@ ? 0 : 1;
	16	}
	17
	18	use Test::More tests => 7;
	19
	20	SKIP: {
	21	skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
	22
	23	use_ok( CGI::Fast );
	24	ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' );
	25	is( $q, $CGI::Q, 'checking to see if the object was stored properly' );
	26	is( $q->param(), (), 'no params' );
	27
	28	ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating obect with params' );
	29	is( $q->param('foo'), 'bar', 'checking passed param' );
	30
	31	# if this is false, the package var will be empty
	32	$ENV{FCGI_SOCKET_PATH} = 0;
	33	is( $CGI::Fast::Ext_Request, '', 'checking no active request' );
	34
	35	}