cvs commit: modperl-2.0/t/response/TestModperl request_rec_tie_api.pm

[stas]

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 => [EMAIL PROTECTED];
   
  -    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};