selftest/Subunit/Filter.pm

   1 #!/usr/bin/perl
   2 # Filter a subunit stream
   3 # Copyright (C) Jelmer Vernooij <jelmer@samba.org>
   4 # Published under the GNU GPL, v3 or later
   5
   6 package Subunit::Filter;
   7
   8 use strict;
   9
  10 sub start_test($$)
  11 {
  12         my ($self, $testname) = @_;
  13
  14         if (defined($self->{prefix})) {
  15                 $testname = $self->{prefix}.$testname;
  16         }
  17
  18         Subunit::start_test($testname);
  19 }
  20
  21 sub end_test($$$$)
  22 {
  23         my ($self, $testname, $result, $reason) = @_;
  24
  25         if (defined($self->{prefix})) {
  26                 $testname = $self->{prefix}.$testname;
  27         }
  28
  29         Subunit::end_test($testname, $result, $reason);
  30 }
  31
  32 sub new {
  33         my ($class, $prefix) = @_;
  34
  35         my $self = {
  36                 prefix => $prefix,
  37         };
  38         bless($self, $class);
  39 }
  40
  41 1;