head     1.1;
branch   1.1.1;
access   ;
symbols  LTP_20031204:1.1.1.1 LINUX_TEST_PROJECT:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2003.12.31.09.00.31;  author mtm;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2003.12.31.09.00.31;  author mtm;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@#!/usr/bin/perl

#    Copyright (c) International Business Machines  Corp., 2001
# 
#    This program is free software;  you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
# 
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY;  without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
#    the GNU General Public License for more details.
# 
#    You should have received a copy of the GNU General Public License
#    along with this program;  if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

#   FILE        : ltpoutput2
#   DESCRIPTION : reads from STDIN and rips failures out of the output from PAN
#   HISTORY	:
#	12/12/2001 Robbie Williamson (robbiew@@us.ibm.com) 
#		adapted from `ltpoutput`


$buf = <STDIN>;
foreach $_ (<>) {
  $line = $_;
  $buf = $buf . $line;
  if($line =~ '<<<test_end>>>') {
    if($buf =~ "termination_id=[^0]") {
      $buf =~ tr/<>/-/;
      print $buf;
    }
    $buf = "";
  }
  if($line =~ "^pan reported") {
    print $line;
  }
}
@


1.1.1.1
log
@Initial import of the Linux Test Project (http://ltp.sourceforge.net).

This import is minus the Posix test suite, which will be imported separately,
and the HPI suite, which doesn't concern us.
@
text
@@
