diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-09-14 00:22:55 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-09-14 10:54:28 +0200 |
| commit | 1e5ea0be8461ebde4fc52fedeebb0628e1eaf44d (patch) | |
| tree | e3e8d426182a9a6f583d5b3d5eaefea932fec61c /selftest/Subunit | |
| parent | c0923cfac1a15efddaadfb851d0eab93eba31ef3 (diff) | |
| download | samba-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.pm | 41 |
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; |