Exclude CGI/t/fast.t from the core, as it relies on FCGI, which is not in core.
authorNicholas Clark <nick@ccl4.org>
Sun, 11 Oct 2009 09:19:03 +0000 (10:19 +0100)
committerNicholas Clark <nick@ccl4.org>
Sun, 11 Oct 2009 09:19:03 +0000 (10:19 +0100)
Whilst the test is designed to skip if FCGI is not present, that logic is now
broken, and even if it were fixed, the as-implemented skip count is now wrong.
We're never going to run this test, as core tests run with just the core's
libraries in @INC, so I see no reason to ship it.

MANIFEST
Porting/Maintainers.pl
cpan/CGI/t/fast.t [deleted file]

index b7125b2..499919e 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -202,7 +202,6 @@ cpan/CGI/t/checkbox_group.t         See if CGI.pm works
 cpan/CGI/t/cookie.t                    See if CGI::Cookie works
 cpan/CGI/t/Dump.t                      See if CGI->Dump works
 cpan/CGI/t/end_form.t                  See if CGI.pm works
-cpan/CGI/t/fast.t                      See if CGI::Fast works (if FCGI is installed)
 cpan/CGI/t/form.t                      See if CGI.pm works
 cpan/CGI/t/function.t                  See if CGI.pm works
 cpan/CGI/t/hidden.t                    See if CGI.pm works
index 49c223a..2cc2365 100755 (executable)
@@ -307,6 +307,7 @@ use File::Glob qw(:case);
                                    cgi_docs.html
                                    examples/WORLD_WRITABLE/18.157.1.253.sav
                                    t/gen-tests/gen-start-end-tags.pl
+                                   t/fast.t
                                )
                           ],
        'CPAN'          => 1,
diff --git a/cpan/CGI/t/fast.t b/cpan/CGI/t/fast.t
deleted file mode 100644 (file)
index 355ec82..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-#!./perl -w
-
-my $fcgi;
-BEGIN {
-       local $@;
-       eval { require FCGI };
-       $fcgi = $@ ? 0 : 1;
-}
-
-use Test::More tests => 10;
-
-# Shut up "used only once" warnings.
-() = $CGI::Q;
-() = $CGI::Fast::Ext_Request;
-
-SKIP: {
-       skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
-
-       use 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 object 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, undef, 'checking no active request' );
-
-    is($CGI::PRIVATE_TEMPFILES,0, "reality check default value for CGI::PRIVATE_TEMPFILES");
-       import CGI::Fast '-private_tempfiles';
-    CGI::Fast->new;
-    is($CGI::PRIVATE_TEMPFILES,1, "pragma in subclass set package variable in parent class. ");
-    $q = CGI::Fast->new({ a => 1 });
-    ok($q, "reality check: something was returned from CGI::Fast->new besides undef");
-    is($CGI::PRIVATE_TEMPFILES,1, "package variable in parent class persists through multiple calls to CGI::Fast->new ");
-
-};