summaryrefslogtreecommitdiffstats
path: root/lib/subunit
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2008-10-08 02:23:51 +0200
committerJelmer Vernooij <jelmer@samba.org>2008-10-08 02:23:51 +0200
commitdf4e9c7066059f072420d869ba6d2f383838afad (patch)
treed400315f4be7f1ab6b36c65e0cc554fc8f9cec84 /lib/subunit
parentf9facb51207713d1f294038e68909ba7701c61e4 (diff)
downloadsamba-df4e9c7066059f072420d869ba6d2f383838afad.tar.gz
samba-df4e9c7066059f072420d869ba6d2f383838afad.tar.xz
samba-df4e9c7066059f072420d869ba6d2f383838afad.zip
Fix path apparently gone wrong by cherrypick.
Diffstat (limited to 'lib/subunit')
-rwxr-xr-xlib/subunit/harness2subunit.pl36
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/subunit/harness2subunit.pl b/lib/subunit/harness2subunit.pl
new file mode 100755
index 0000000000..45f515540b
--- /dev/null
+++ b/lib/subunit/harness2subunit.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+# Simple script that converts Perl test harness output to
+# Subunit
+# Copyright (C) 2008 Jelmer Vernooij <jelmer@samba.org>
+# Published under the GNU GPL, v3 or later
+
+my $firstline = 1;
+my $error = 0;
+while(<STDIN>) {
+ if ($firstline) {
+ $firstline = 0;
+ next;
+ }
+ if (/^not ok (\d+) - (.*)$/) {
+ print "test: $2\n";
+ print "failure: $2\n";
+ $error = 1;
+ } 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";
+ $error = 1;
+ } else {
+ print;
+ }
+}
+exit $error;
+