In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/440f0407a5bf0dfc606fccdbfe0f3384856f264b?hp=07d75553cc77dd505d79c3054ee5e577d544e490>
- Log ----------------------------------------------------------------- commit 440f0407a5bf0dfc606fccdbfe0f3384856f264b Author: Nicholas Clark <[email protected]> Date: Sun Oct 11 10:19:03 2009 +0100 Exclude CGI/t/fast.t from the core, as it relies on FCGI, which is not in core. 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. ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 - Porting/Maintainers.pl | 1 + cpan/CGI/t/fast.t | 39 --------------------------------------- 3 files changed, 1 insertions(+), 40 deletions(-) delete mode 100644 cpan/CGI/t/fast.t diff --git a/MANIFEST b/MANIFEST index b7125b2..499919e 100644 --- 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 diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 49c223a..2cc2365 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -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 index 355ec82..0000000 --- a/cpan/CGI/t/fast.t +++ /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 "); - -}; -- Perl5 Master Repository
