#! /usr/bin/perl
use strict;
use warnings;
my %t;
my $test;
while (<>) {
  chomp;
  if (/^TEST: (.*)$/) {
    die $_ if $test;
    $test=$1;
    next;
  }
  if (/^TEST RESULT: (Passed|Failed)[.]/) {
    die $_ if !$test;
    $t{$test}=$1 eq "Passed";
    $test=undef;
    next;
  }
}
die if defined $test;
print(($t{$_}?"PASS":"FAIL")." test/hotspot/jtreg/$_\n") for sort keys(%t);