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