/usr/share/perl5/Test/Unit/Runner.pm is in libtest-unit-perl 0.25-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | package Test::Unit::Runner;
=head1 NAME
Test::Unit::Runner - abstract base class for test runners
=head1 SYNOPSIS
my $runner = Test::Unit::TestRunner->new();
$runner->filter(@filter_tokens);
$runner->start(...);
=head1 DESCRIPTION
This class is a parent class of all test runners, and hence is not
intended to be used directly. It provides functionality such as state
(e.g. run-time options) available to all runner classes.
=cut
use strict;
use Test::Unit::Result;
use base qw(Test::Unit::Listener);
sub create_test_result {
my $self = shift;
return $self->{_result} = Test::Unit::Result->new();
}
sub result { shift->{_result} }
sub start_suite {
my $self = shift;
my ($suite) = @_;
push @{ $self->{_suites_running} }, $suite;
}
sub end_suite {
my $self = shift;
my ($suite) = @_;
pop @{ $self->{_suites_running} };
}
=head2 suites_running()
Returns an array stack of the current suites running. When a new
suite is started, it is pushed on the stack, and it is popped on
completion. Hence the first element in the returned array is
the top-level suite, and the last is the innermost suite.
=cut
sub suites_running {
my $self = shift;
return @{ $self->{_suites_running} || [] };
}
=head2 filter([ @tokens ])
Set the runner's filter tokens to the given list.
=cut
sub filter {
my $self = shift;
$self->{_filter} = [ @_ ] if @_;
return @{ $self->{_filter} || [] };
}
=head2 reset_filter()
Clears the current filter.
=cut
sub reset_filter {
my $self = shift;
$self->{_filter} = [];
}
1;
=head1 AUTHOR
Copyright (c) 2000-2002, 2005 the PerlUnit Development Team
(see L<Test::Unit> or the F<AUTHORS> file included in this
distribution).
All rights reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<Test::Unit::HarnessUnit>,
L<Test::Unit::TestRunner>,
L<Test::Unit::TkTestRunner>
=cut
|