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    is( $_,'some file handle','file handle passed to FCGI' )
18        foreach @_[0..2];
19	return bless({});
20};
21
22CGI::Fast->file_handles({
23	# really here you would use IO::Handle or some equivalent
24	fcgi_input_file_handle  => 'some file handle',
25	fcgi_output_file_handle => 'some file handle',
26	fcgi_error_file_handle  => 'some file handle',
27});
28
29ok( my $q = CGI::Fast->new,'CGI::Fast->new' );
30