cvs commit: httpd-test/perl-framework/t/protocol nntp-like.t

[coar]

coar        2004/05/13 04:34:32

  Modified:    perl-framework/t/protocol nntp-like.t
  Log:
  another case where a perl error sometimes obscures test results
  
  Revision  Changes    Path
  1.2       +2 -1      httpd-test/perl-framework/t/protocol/nntp-like.t
  
  Index: nntp-like.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/protocol/nntp-like.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- nntp-like.t       16 Nov 2001 23:47:45 -0000      1.1
  +++ nntp-like.t       13 May 2004 11:34:32 -0000      1.2
  @@ -36,7 +36,8 @@
       for my $data ('LIST', 'GROUP dev.httpd.apache.org', 'ARTICLE 401') {
           $sock->print("$data\n");
   
  -        chomp($response = Apache::TestRequest::getline($sock));
  +        $response = Apache::TestRequest::getline($sock);
  +        chomp($response) if (defined($response));
           ok t_cmp($data, $response, 'echo');
       }
   }