summaryrefslogtreecommitdiff
path: root/selftest/Subunit/Filter.pm
diff options
context:
space:
mode:
Diffstat (limited to 'selftest/Subunit/Filter.pm')
-rw-r--r--selftest/Subunit/Filter.pm41
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;