stas 2002/08/15 06:11:06 Added: t/compat send_fd.t t/response/TestCompat send_fd.pm Removed: t/api send_fd.t t/response/TestAPI send_fd.pm Log: send_fd exists only in compat, move that test into compat/ Revision Changes Path 1.1 modperl-2.0/t/compat/send_fd.t Index: send_fd.t =================================================================== use strict; use warnings FATAL => 'all'; use Apache::Test; use Apache::TestRequest; plan tests => 3; my $config = Apache::Test::config(); my $url = '/TestCompat::send_fd'; my $data = GET_BODY($url); ok $data; my $module = 'response/TestCompat/send_fd.pm'; ok length($data) == -s $module; $data = GET_BODY("$url?noexist.txt"); ok $data =~ /Not Found/; 1.1 modperl-2.0/t/response/TestCompat/send_fd.pm Index: send_fd.pm =================================================================== package TestCompat::send_fd; use strict; use warnings FATAL => 'all'; use Apache::compat (); use Apache::RequestRec (); use Apache::Const -compile => ':common'; sub handler { my $r = shift; my $file = $r->args || __FILE__; open my $fh, $file or return Apache::NOT_FOUND; my $bytes = $r->send_fd($fh); return Apache::SERVER_ERROR unless $bytes == -s $file; Apache::OK; } 1;