Upgrade to CGI.pm-3.48
[perl.git] / cpan / CGI / t / fast.t
1 #!./perl -w
2
3 my $fcgi;
4 BEGIN {
5         local $@;
6         eval { require FCGI };
7         $fcgi = $@ ? 0 : 1;
8 }
9
10 use Test::More tests => 10;
11
12 # Shut up "used only once" warnings.
13 () = $CGI::Q;
14 () = $CGI::Fast::Ext_Request;
15
16 SKIP: {
17         skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
18
19         use CGI::Fast;
20         ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' );
21         is( $q, $CGI::Q, 'checking to see if the object was stored properly' );
22         is( $q->param(), (), 'no params' );
23
24         ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating object with params' );
25         is( $q->param('foo'), 'bar', 'checking passed param' );
26
27         # if this is false, the package var will be empty
28         $ENV{FCGI_SOCKET_PATH} = 0;
29         is( $CGI::Fast::Ext_Request, undef, 'checking no active request' );
30
31     is($CGI::PRIVATE_TEMPFILES,0, "reality check default value for CGI::PRIVATE_TEMPFILES");
32         import CGI::Fast '-private_tempfiles';
33     CGI::Fast->new;
34     is($CGI::PRIVATE_TEMPFILES,1, "pragma in subclass set package variable in parent class. ");
35     $q = CGI::Fast->new({ a => 1 });
36     ok($q, "reality check: something was returned from CGI::Fast->new besides undef");
37     is($CGI::PRIVATE_TEMPFILES,1, "package variable in parent class persists through multiple calls to CGI::Fast->new ");
38
39 };