--- /dev/null
+#! /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);
--- /dev/null
+#! /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);