Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 31660 invoked by uid 500); 31 Mar 2003 00:53:29 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 31649 invoked by uid 500); 31 Mar 2003 00:53:29 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 31 Mar 2003 00:53:28 -0000 Message-ID: <20030331005328.16943.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/response/TestModperl request_rec_tie_api.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N stas 2003/03/30 16:53:28 Modified: t/response/TestModperl request_rec_tie_api.pm Log: fileno STDOUT returns 0 on aix 4.3.3, turn the test into a TODO one Revision Changes Path 1.3 +11 -2 modperl-2.0/t/response/TestModperl/request_rec_tie_api.pm Index: request_rec_tie_api.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/request_rec_tie_api.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- request_rec_tie_api.pm 22 Jan 2003 06:12:43 -0000 1.2 +++ request_rec_tie_api.pm 31 Mar 2003 00:53:28 -0000 1.3 @@ -16,9 +16,18 @@ sub handler { my $r = shift; - plan $r, tests => 3; + require Apache::Build; + my @todo; + push @todo, 1 if Apache::Build::AIX(); + plan $r, tests => 3, todo => \@todo; - ok fileno STDOUT; + # XXX: on AIX 4.3.3 we get: + # STDIN STDOUT STDERR + # perl : 0 1 2 + # mod_perl: 0 0 2 + my $fileno = fileno STDOUT; + ok $fileno; + t_debug "fileno STDOUT: $fileno"; { my $vars = Apache::Test::config()->{vars};