/usr/share/perl5/Test/Unit/Listener.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 | package Test::Unit::Listener;
use Test::Unit::Loader;
use Carp;
use strict;
sub new {
my $class = shift;
croak "call to abstract constructor ${class}::new";
}
sub start_suite {
my $self = shift;
my $class = ref($self);
my ($suite) = @_;
croak "call to abstract method ${class}::start_suite";
}
sub start_test {
my $self = shift;
my $class = ref($self);
my ($test) = @_;
croak "call to abstract method ${class}::start_test";
}
sub add_error {
my $self = shift;
my $class = ref($self);
my ($test, $exception) = @_;
croak "call to abstract method ${class}::add_error";
}
sub add_failure {
my $self = shift;
my $class = ref($self);
my ($test, $exception) = @_;
croak "call to abstract method ${class}::add_failure";
}
sub end_test {
my $self = shift;
my $class = ref($self);
my ($test) = @_;
croak "call to abstract method ${class}::end_test";
}
1;
__END__
=head1 NAME
Test::Unit::Listener - unit testing framework abstract base class
=head1 SYNOPSIS
This class is not intended to be used directly
=head1 DESCRIPTION
This class is used by the framework to define the interface of a test
listener. It is an abstract base class implemented by the test
runners.
Due to the nature of the Perl OO implementation, this class is not
really needed, but rather serves as documentation of the interface.
Each of the add_ methods gets two arguments: C<test> and C<exception>.
The test is a Test::Unit::Test and the exception is a
Test::Unit::Exception. Typically you want to display
C<test-E<gt>name()> and keep the rest as details.
=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
=over 4
=item *
L<Test::Unit::Exception>
=item *
L<Test::Unit::TestRunner>
=item *
L<Test::Unit::TkTestRunner>
=back
=cut
|