selftest: Remove testsuite parsing.
[ira/wip.git] / selftest / Subunit / Filter.pm
index 1c484269950c13eefc6953991dc3afd694a42006..5ac304f1ee1777d3427a1a7eb016ec0ca8525a43 100644 (file)
@@ -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) = @_;