From 0e3bafcec674fa053703c9e4a5719e0b38c742b4 Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan@jankratochvil.net>
Date: Wed, 20 Sep 2023 19:29:48 +0800
Subject: [PATCH] +bin/jtreg-pass-fail +bin/jtreg-pass-fail2

---
 bin/jtreg-pass-fail  | 14 ++++++++++++++
 bin/jtreg-pass-fail2 | 21 +++++++++++++++++++++
 2 files changed, 35 insertions(+)
 create mode 100755 bin/jtreg-pass-fail
 create mode 100755 bin/jtreg-pass-fail2

diff --git a/bin/jtreg-pass-fail b/bin/jtreg-pass-fail
new file mode 100755
index 0000000..aca6978
--- /dev/null
+++ b/bin/jtreg-pass-fail
@@ -0,0 +1,14 @@
+#! /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);
diff --git a/bin/jtreg-pass-fail2 b/bin/jtreg-pass-fail2
new file mode 100755
index 0000000..490d38b
--- /dev/null
+++ b/bin/jtreg-pass-fail2
@@ -0,0 +1,21 @@
+#! /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);
-- 
1.8.3.1