1#!perl 2 3use strict; 4use warnings; 5 6use Test::More tests => 4; 7 8use CGI::Fast; 9 10# oook oook! monkey patching to mock FCGI behaviour 11no warnings 'redefine'; 12no warnings 'once'; 13no warnings 'prototype'; 14*Accept = sub { 1 }; 15*FCGI::Request = sub { 16 # check we actually pass file handles to FCGI::Request 17 isa_ok( $_,'GLOB','no file handle passed to FCGI' ) 18 foreach @_[0..2]; 19 return bless({}); 20}; 21 22ok( my $q = CGI::Fast->new,'CGI::Fast->new' ); 23