From 8a1d019f53ef6d1a6900a005b335bdc10d14bbe4 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Mon, 27 Aug 2007 16:27:23 +0000 Subject: r24709: Convert perl test harness output to subunit for nicer display. (This used to be commit 1be11bd0a5092ad9102587ea206388234983c479) --- source4/script/harness2subunit.pl | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100755 source4/script/harness2subunit.pl (limited to 'source4/script') diff --git a/source4/script/harness2subunit.pl b/source4/script/harness2subunit.pl new file mode 100755 index 0000000000..c14e4730e0 --- /dev/null +++ b/source4/script/harness2subunit.pl @@ -0,0 +1,28 @@ +#!/usr/bin/perl + +my $firstline = 1; + +while() { + if ($firstline) { + $firstline = 0; + next; + } + if (/^not ok (\d+) - (.*)$/) { + print "test: $2\n"; + print "failure: $2\n"; + } elsif (/^ok (\d+) - (.*)$/) { + print "test: $2\n"; + print "success: $2\n"; + } elsif (/^ok (\d+)$/) { + print "test: $1\n"; + print "success: $1\n"; + } elsif (/^ok (\d+) # skip (.*)$/) { + print "test: $1\n"; + print "skip: $1 [\n$2\n]\n"; + } elsif (/^not ok (\d+)$/) { + print "test: $1\n"; + print "failure: $1\n"; + } else { + print; + } +} -- cgit