subunit.pm: Fold Subunit::Filter into Subunit, trim further.

1 files changed, 0 insertions, 41 deletions

diff --git a/selftest/Subunit/Filter.pm b/selftest/Subunit/Filter.pm
deleted file mode 100644
index e2b9d1c9ad..0000000000
--- a/selftest/Subunit/Filter.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-# Filter a subunit stream
-# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
-# Published under the GNU GPL, v3 or later
-
-package Subunit::Filter;
-
-use strict;
-
-sub start_test($$)
-{
-	my ($self, $testname) = @_;
-
-	if (defined($self->{prefix})) {
-		$testname = $self->{prefix}.$testname;
-	}
-
-	Subunit::start_test($testname);
-}
-
-sub end_test($$$$)
-{
-	my ($self, $testname, $result, $reason) = @_;
-
-	if (defined($self->{prefix})) {
-		$testname = $self->{prefix}.$testname;
-	}
-
-	Subunit::end_test($testname, $result, $reason);
-}
-
-sub new {
-	my ($class, $prefix) = @_;
-
-	my $self = {
-		prefix => $prefix,
-	};
-	bless($self, $class);
-}
-
-1;