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

[ira/wip.git] / selftest / Subunit / Filter.pm

diff --git a/selftest/Subunit/Filter.pm b/selftest/Subunit/Filter.pm
deleted file mode 100644 (file)
index e2b9d1c..0000000
--- 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;