From 1e5ea0be8461ebde4fc52fedeebb0628e1eaf44d Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Tue, 14 Sep 2010 00:22:55 +0200 Subject: subunit.pm: Fold Subunit::Filter into Subunit, trim further. --- selftest/Subunit/Filter.pm | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 selftest/Subunit/Filter.pm (limited to 'selftest/Subunit') 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 -# 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; -- cgit