File Coverage

blib/lib/Test/Unit.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Test::Unit - the PerlUnit testing framework
4              
5             =head1 SYNOPSIS
6              
7             This package provides only the project version number, copyright
8             texts, and a framework overview in POD format.
9              
10             =head1 DESCRIPTION
11              
12             This framework is intended to support unit testing in an
13             object-oriented development paradigm (with support for
14             inheritance of tests etc.) and is derived from the JUnit
15             testing framework for Java by Kent Beck and Erich Gamma. To
16             start learning how to use this framework, see
17             L and L. (There
18             will also eventually be a tutorial in
19             L.
20              
21             However C is the procedural style
22             interface to a sophisticated unit testing framework for Perl
23             that . Test::Unit is intended to provide a simpler
24             interface to the framework that is more suitable for use in a
25             scripting style environment. Therefore, Test::Unit does not
26             provide much support for an object-oriented approach to unit
27             testing.
28              
29             =head1 COPYRIGHT
30              
31             Copyright (c) 2000-2002, 2005 the PerlUnit Development Team
32             (see the F file included in this distribution).
33              
34             All rights reserved. This program is free software; you can
35             redistribute it and/or modify it under the same terms as Perl itself.
36              
37             That is, under the terms of either of:
38              
39             =over 4
40              
41             =item *
42              
43             The GNU General Public License as published by the Free Software
44             Foundation; either version 1, or (at your option) any later version.
45              
46             The text of version 2 is included in the PerlUnit distribution package
47             as F.
48              
49             =item *
50              
51             The "Artistic License" which comes with Perl.
52              
53             The text of this is included in the PerlUnit distribution package as
54             F.
55              
56             =back
57              
58             =head1 SEE ALSO
59              
60             =over 4
61              
62             =item *
63              
64             L
65              
66             =item *
67              
68             L
69              
70             =item *
71              
72             L
73              
74             =back
75              
76             =head1 FEEDBACK
77              
78             The Perl Unit development team are humans. In part we develop stuff
79             because it scratches our collective itch but we'd also really like to
80             know if it scratches yours.
81              
82             Please subscribe to the perlunit-users mailing list at
83             L and let
84             us know what you love and hate about PerlUnit and what else you want
85             to do with it.
86              
87             =cut
88              
89             package Test::Unit;
90              
91 1     1   3 use strict;
  1         2  
  1         50  
92 1     1   6 use vars qw($VERSION);
  1         2  
  1         48  
93              
94             # NOTE: this version number has to be kept in sync with the
95             # number in the distribution file name (the distribution file
96             # is the tarball for CPAN release) because the CPAN module
97             # decides to fetch the tarball by looking at the version of
98             # this module if you say "install Test::Unit" in the CPAN
99             # shell. "make tardist" should do this automatically.
100              
101             BEGIN {
102 1     1   35 $VERSION = '0.25';
103             }
104              
105             # Constants for notices displayed to the user:
106              
107 1     1   5 use constant COPYRIGHT_SHORT => <
  1         3  
  1         62  
108             Test::Unit Version $Test::Unit::VERSION
109             (c) 2000-2002, 2005 Christian Lemburg, Brian Ewins, et. al.
110             EOF
111              
112              
113 1     1   4 use constant COPYRIGHT_NOTICE => <<'END_COPYRIGHT_NOTICE';
  1         2  
  1         39  
114             This is PerlUnit version $Test::Unit::VERSION.
115             Copyright (C) 2000-2002, 2005 Christian Lemburg, Brian Ewins, et. al.
116              
117              
118             PerlUnit is a Unit Testing framework based on JUnit.
119             See http://c2.com/cgi/wiki?TestingFrameworks
120              
121             PerlUnit is free software, redistributable under the
122             same terms as Perl.
123             END_COPYRIGHT_NOTICE
124              
125              
126             1;
127             __END__