Commit | Line | Data |
b38b066d |
1 | #!./perl -w |
2 | |
f0c07f2e |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | if ($ENV{PERL_CORE}) { |
6 | @INC = '../lib'; |
7 | } else { |
8 | # Due to a bug in older versions of MakeMaker & Test::Harness, we must |
9 | # ensure the blib's are in @INC, else we might use the core CGI.pm |
10 | unshift @INC, qw( ../blib/lib ../blib/arch lib ); |
11 | } |
12 | } |
b38b066d |
13 | |
14 | my $fcgi; |
15 | BEGIN { |
b38b066d |
16 | local $@; |
17 | eval { require FCGI }; |
18 | $fcgi = $@ ? 0 : 1; |
19 | } |
20 | |
21 | use Test::More tests => 7; |
22 | |
ac734d8b |
23 | # Shut up "used only once" warnings. |
24 | () = $CGI::Q; |
25 | () = $CGI::Fast::Ext_Request; |
26 | |
b38b066d |
27 | SKIP: { |
28 | skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi; |
29 | |
30 | use_ok( CGI::Fast ); |
31 | ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' ); |
32 | is( $q, $CGI::Q, 'checking to see if the object was stored properly' ); |
33 | is( $q->param(), (), 'no params' ); |
34 | |
35 | ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating obect with params' ); |
36 | is( $q->param('foo'), 'bar', 'checking passed param' ); |
37 | |
38 | # if this is false, the package var will be empty |
39 | $ENV{FCGI_SOCKET_PATH} = 0; |
40 | is( $CGI::Fast::Ext_Request, '', 'checking no active request' ); |
41 | |
42 | } |