package Test::Unit::tests::AllTests;
use Test::Unit::TestRunner;
use Test::Unit::TestSuite;
use Test::Unit::tests::SuiteTest;
use Test::Unit::InnerClass;
sub new {
my $class = shift;
return bless {}, $class;
}
sub suite {
my $class = shift;
my $suite = Test::Unit::TestSuite->empty_new("Framework Tests");
$suite->add_test(Test::Unit::TestSuite->new("Test::Unit::tests::TestTest"));
$suite->add_test(Test::Unit::tests::SuiteTest->suite());
$suite->add_test(Test::Unit::TestSuite->new("Test::Unit::tests::TestInnerClass"));
$suite->add_test(Test::Unit::TestSuite->new("Test::Unit::tests::TestListenerTest"));
$suite->add_test(Test::Unit::TestSuite->new("Test::Unit::tests::TestUnitTest"));
return $suite;
}
1;
__END__
=head1 NAME
Test::Unit::tests::AllTests - unit testing framework self tests
=head1 SYNOPSIS
# command line style use
perl TestRunner.pl Test::Unit::tests::AllTests
# GUI style use
perl TkTestRunner.pl Test::Unit::tests::AllTests
=head1 DESCRIPTION
This class is used by the unit testing framework to encapsulate all
the self tests of the framework.
=head1 AUTHOR
Framework JUnit authored by Kent Beck and Erich Gamma.
Ported from Java to Perl by Christian Lemburg.
Copyright (c) 2000 Christian Lemburg, E<lt>lemburg@acm.orgE<gt>.
All rights reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.
Thanks go to the other PerlUnit framework people:
Brian Ewins, Cayte Lindner, J.E. Fritz, Zhon Johansen.
=head1 SEE ALSO
=over 4
=item *
L<Test::Unit::TestCase>
=item *
L<Test::Unit::TestSuite>
=back
=cut