From: chromatic <chromatic@wgz.org>
Date: Sat, 8 Sep 2001 12:31:44 +0000 (-0600)
Subject: Added Test for CGI::Fast
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b38b066d1cf1b115dd83bdf7e4355e8870134fb9;p=p5sagit%2Fp5-mst-13.2.git

Added Test for CGI::Fast
Message-ID: <20010908183612.49960.qmail@onion.perl.org>

p4raw-id: //depot/perl@11952
---

diff --git a/MANIFEST b/MANIFEST
index 6a3420c..f0fc9b0 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -802,6 +802,7 @@ lib/CGI/Switch.pm		Simple interface for multiple server types
 lib/CGI/t/apache.t              See if CGI::Apache still loads
 lib/CGI/t/carp.t                See if CGI::Carp works
 lib/CGI/t/cookie.t              See if CGI::Cookie works
+lib/CGI/t/fast.t		See if CGI::Fast works (if FCGI is installed)
 lib/CGI/t/form.t		See if CGI.pm works
 lib/CGI/t/function.t		See if CGI.pm works
 lib/CGI/t/html.t		See if CGI.pm works
diff --git a/lib/CGI/t/fast.t b/lib/CGI/t/fast.t
new file mode 100644
index 0000000..2374d9f
--- /dev/null
+++ b/lib/CGI/t/fast.t
@@ -0,0 +1,35 @@
+#!./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' );
+
+}