bin/jtreg-pass-fail

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 my $f=shift if ($ARGV[0]||"") eq "-f";
   5 my %p;
   6 my %f;
   7 while (<>) {
   8   chomp;
   9   $p{$_}=1 if s/^Passed: //;
  10   $f{$_}=1 if s/^TEST: //;
  11 }
  12 die "No PASS" if !%p&&!$f;
  13 my %a=(%p,%f);
  14 print(($p{$_}?"PASS":"FAIL")." test/hotspot/jtreg/$_\n") for sort keys(%a);