summaryrefslogtreecommitdiff
path: root/selftest/Subunit
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2010-09-14 00:22:55 +0200
committerJelmer Vernooij <jelmer@samba.org>2010-09-14 10:54:28 +0200
commit1e5ea0be8461ebde4fc52fedeebb0628e1eaf44d (patch)
treee3e8d426182a9a6f583d5b3d5eaefea932fec61c /selftest/Subunit
parentc0923cfac1a15efddaadfb851d0eab93eba31ef3 (diff)
downloadsamba-1e5ea0be8461ebde4fc52fedeebb0628e1eaf44d.tar.gz
samba-1e5ea0be8461ebde4fc52fedeebb0628e1eaf44d.tar.bz2
samba-1e5ea0be8461ebde4fc52fedeebb0628e1eaf44d.zip
subunit.pm: Fold Subunit::Filter into Subunit, trim further.
Diffstat (limited to 'selftest/Subunit')
-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;