bin/jtreg-pass-fail2

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 my %t;
   5 my $test;
   6 while (<>) {
   7   chomp;
   8   if (/^TEST: (.*)$/) {
   9     die $_ if $test;
  10     $test=$1;
  11     next;
  12   }
  13   if (/^TEST RESULT: (Passed|Failed)[.]/) {
  14     die $_ if !$test;
  15     $t{$test}=$1 eq "Passed";
  16     $test=undef;
  17     next;
  18   }
  19 }
  20 die if defined $test;
  21 print(($t{$_}?"PASS":"FAIL")." test/hotspot/jtreg/$_\n") for sort keys(%t);