From 7d4968e161d5868b65dd5d8ef5bb0e391109c0b5 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Tue, 14 Sep 2010 00:04:54 +0200 Subject: selftest: Remove testsuite parsing. --- selftest/Subunit/Filter.pm | 22 ++-------------------- 1 file changed, 2 insertions(+), 20 deletions(-) (limited to 'selftest/Subunit') diff --git a/selftest/Subunit/Filter.pm b/selftest/Subunit/Filter.pm index 1c48426995..5ac304f1ee 100644 --- a/selftest/Subunit/Filter.pm +++ b/selftest/Subunit/Filter.pm @@ -29,9 +29,9 @@ sub start_test($$) Subunit::start_test($testname); } -sub end_test($$$$$) +sub end_test($$$$) { - my ($self, $testname, $result, $unexpected, $reason) = @_; + my ($self, $testname, $result, $reason) = @_; if (defined($self->{prefix})) { $testname = $self->{prefix}.$testname; @@ -40,24 +40,6 @@ sub end_test($$$$$) Subunit::end_test($testname, $result, $reason); } -sub skip_testsuite($;$) -{ - my ($self, $name, $reason) = @_; - Subunit::skip_testsuite($name, $reason); -} - -sub start_testsuite($;$) -{ - my ($self, $name) = @_; - Subunit::start_testsuite($name); -} - -sub end_testsuite($$;$) -{ - my ($self, $name, $result, $reason) = @_; - Subunit::end_testsuite($name, $result, $reason); -} - sub new { my ($class, $prefix) = @_; -- cgit