r24338: Add callbacks for starting and finishing tests.

(This used to be commit 824833b59a1c9c829cea4e5c4bfd2387b1bc7a2f)

1 files changed, 70 insertions, 0 deletions

diff --git a/source4/selftest/subunit-summary b/source4/selftest/subunit-summary
new file mode 100755
index 0000000000..aec50ed02a
--- /dev/null
+++ b/source4/selftest/subunit-summary
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+# Simple subunit parser
+# (C) 2006 Jelmer Vernooij <jelmer@samba.org>
+
+use strict;
+use Getopt::Long;
+
+my $numtests = 0;
+my $numfails = 0;
+my $numskips = 0;
+my $numsuccess = 0;
+
+my $opt_help = 0;
+my $opt_progress = 0;
+
+my $result = GetOptions (
+	    'help|h|?' => \$opt_help, 
+		'progress' => \$opt_progress
+	    );
+
+if (not $result) {
+	exit(1);
+}
+
+if ($opt_help) {
+	print "subunit output summarizer\n";
+	print "Copyright (C) 2006 Jelmer Vernooij <jelmer\@samba.org>\n";
+	print "\n";
+	print "Usage: subunit-summary [OPTION]\n";
+	print " --help			Print this help message\n";
+	print "\n";
+	exit(0);
+}
+
+while(<STDIN>) {
+	next unless (/^(.+): (.+?)( \[)?$/);
+	if ($1 eq "test") {
+		$numtests++;
+	} elsif ($1 eq "error") {
+		print "E" if ($opt_progress);
+	} elsif ($1 eq "failure") {
+		$numfails++;
+		print "F" if ($opt_progress);
+	} elsif ($1 eq "success") {
+		$numsuccess++;
+		print "." if ($opt_progress);
+	} elsif ($1 eq "skip") {
+		$numskips++;
+		print "I" if ($opt_progress);
+	} elsif ($1 eq "testsuite") {
+		if ($opt_progress) {
+			if ($numtests) { print "\n"; }
+			print "$2: ";
+		}
+	}
+}
+
+print "\n" if ($opt_progress);
+
+if ($numtests == 0) {
+    print "No tests run\n";
+    exit(0);
+}
+
+printf("%d%%: %d tests, %d succeeded, %d failed, %d skipped\n", 
+       ($numsuccess / $numtests * 100),
+	   $numtests,
+	   $numsuccess,
+	   $numfails,
+	   $numskips);