You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/03/31 02:53:28 UTC
cvs commit: modperl-2.0/t/response/TestModperl request_rec_tie_api.pm
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};