X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fjtreg-pass-fail;fp=bin%2Fjtreg-pass-fail;h=aca6978263c40fa18dc32ec387f2d807aa33218d;hp=0000000000000000000000000000000000000000;hb=0e3bafcec674fa053703c9e4a5719e0b38c742b4;hpb=9ad22a15f9e485bec2183a829eb1ed01a448ab49

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);