summaryrefslogtreecommitdiff
path: root/lib/subunit/tap2subunit
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2009-05-13 18:48:44 +0200
committerJelmer Vernooij <jelmer@samba.org>2009-06-03 16:26:29 +0200
commit87bbae7b0768d3606877a79155e42be0fa2843d8 (patch)
tree07bedd33a619f514aae9e2ba2e08440c2a194930 /lib/subunit/tap2subunit
parent4bf988105b444cecb8b61be33d6b4d3a5c243732 (diff)
downloadsamba-87bbae7b0768d3606877a79155e42be0fa2843d8.tar.gz
samba-87bbae7b0768d3606877a79155e42be0fa2843d8.tar.bz2
samba-87bbae7b0768d3606877a79155e42be0fa2843d8.zip
Rename harness2subunit.pl -> tap2subunit to be consistent with the
subunit tools.
Diffstat (limited to 'lib/subunit/tap2subunit')
-rwxr-xr-xlib/subunit/tap2subunit36
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/subunit/tap2subunit b/lib/subunit/tap2subunit
new file mode 100755
index 0000000000..45f515540b
--- /dev/null
+++ b/lib/subunit/tap2subunit
@@ -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;
+