summaryrefslogtreecommitdiff
path: root/source4/script/harness2subunit.pl
diff options
context:
space:
mode:
Diffstat (limited to 'source4/script/harness2subunit.pl')
-rwxr-xr-xsource4/script/harness2subunit.pl36
1 files changed, 0 insertions, 36 deletions
diff --git a/source4/script/harness2subunit.pl b/source4/script/harness2subunit.pl
deleted file mode 100755
index 45f515540b..0000000000
--- a/source4/script/harness2subunit.pl
+++ /dev/null
@@ -1,36 +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;
-