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