This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Added Test for CGI::Fast
authorchromatic <chromatic@wgz.org>
Sat, 8 Sep 2001 12:31:44 +0000 (06:31 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 9 Sep 2001 00:27:15 +0000 (00:27 +0000)
Message-ID: <20010908183612.49960.qmail@onion.perl.org>

p4raw-id: //depot/perl@11952

MANIFEST
lib/CGI/t/fast.t [new file with mode: 0644]

index 6a3420c..f0fc9b0 100644 (file)
--- 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/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
 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 (file)
index 0000000..2374d9f
--- /dev/null
@@ -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' );
+
+}