http://rt.cpan.org/Public/Bug/Display.html?id=49599
--- CGI.pm-3.47/t/fast.t
+++ CGI.pm-3.47/t/fast.t
@@ -7,16 +7,16 @@
$fcgi = $@ ? 0 : 1;
}
-use Test::More tests => 10;
+use Test::More tests => 11;
# Shut up "used only once" warnings.
() = $CGI::Q;
() = $CGI::Fast::Ext_Request;
SKIP: {
- skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
+ skip( 'FCGI not installed, cannot continue', 11 ) unless $fcgi;
- use CGI::Fast;
+ 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' );