From 31d5ac05402ed9ac8158d143283c7f8b2d7bb7b4 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 22 Sep 2010 11:30:34 -0700
Subject: selftest: Let tests add prefix to tests by themselve.

---
 selftest/Subunit.pm | 33 ---------------------------------
 1 file changed, 33 deletions(-)

(limited to 'selftest/Subunit.pm')

diff --git a/selftest/Subunit.pm b/selftest/Subunit.pm
index a94eecd7e4..1cc0e72169 100644
--- a/selftest/Subunit.pm
+++ b/selftest/Subunit.pm
@@ -19,42 +19,9 @@ use POSIX;
 
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT_OK = qw(filter_add_prefix);
 
 use strict;
 
-sub filter_add_prefix($$)
-{
-	my ($prefix, $fh) = @_;
-
-	while(<$fh>) {
-		if (/^test: (.+)\n/) {
-			Subunit::start_test($prefix.$1);
-		} elsif (/^(success|successful|failure|fail|skip|knownfail|error|xfail): (.*?)( \[)?([ \t]*)( multipart)?\n/) {
-			my $result = $1;
-			my $testname = $prefix.$2;
-			my $reason = undef;
-			if ($3) {
-				$reason = "";
-				# reason may be specified in next lines
-				my $terminated = 0;
-				while(<$fh>) {
-					if ($_ eq "]\n") { $terminated = 1; last; } else { $reason .= $_; }
-				}
-
-				unless ($terminated) {
-					print $reason;
-					$reason = "reason ($result) interrupted";
-					$result = "error";
-				}
-			}
-			Subunit::end_test($testname, $result, $reason);
-		} else {
-			print $_;
-		}
-	}
-}
-
 sub start_test($)
 {
 	my ($testname) = @_;
-- 
cgit