summaryrefslogtreecommitdiff
path: root/lib/subunit/tap2subunit
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2009-12-31 18:48:41 +0100
committerJelmer Vernooij <jelmer@samba.org>2010-01-16 19:53:49 +1300
commitb6b46b4978dcaffa0cd9803c43b8a5f1c19e227e (patch)
tree478630ad4dd780bf0e68b2cad61d6b0cb26b8823 /lib/subunit/tap2subunit
parent2e38cb2cbb7520b2630ed85c3df2eb678c737fda (diff)
downloadsamba-b6b46b4978dcaffa0cd9803c43b8a5f1c19e227e.tar.gz
samba-b6b46b4978dcaffa0cd9803c43b8a5f1c19e227e.tar.bz2
samba-b6b46b4978dcaffa0cd9803c43b8a5f1c19e227e.zip
subunit: Import new version.
Diffstat (limited to 'lib/subunit/tap2subunit')
-rwxr-xr-xlib/subunit/tap2subunit35
1 files changed, 0 insertions, 35 deletions
diff --git a/lib/subunit/tap2subunit b/lib/subunit/tap2subunit
deleted file mode 100755
index 9e335168f5..0000000000
--- a/lib/subunit/tap2subunit
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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;