# New Ticket Created by James Keenan
# Please include the string: [perl #42360]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=42360 >
lib/Parrot/Revision.pm appears to have no unit tests written
specifically for it. Write some, then perform coverage analysis to
make sure all code is covered by tests.
$ ack --nohtml --nophp 'Parrot::Revision'
config/gen/revision.pm:23:use Parrot::Revision;
config/gen/revision.pm:30: my $revision = $Parrot::Revision::current;
config/gen/revision.pm:31: my $entries =
$Parrot::Revision::svn_entries;
lib/Parrot/Revision.pm:6:Parrot::Revision - SVN Revision
lib/Parrot/Revision.pm:10: use Parrot::Revision;
lib/Parrot/Revision.pm:12: print $Parrot::Revision::current;
lib/Parrot/Revision.pm:13: print $Parrot::Revision::config;
lib/Parrot/Revision.pm:21:package Parrot::Revision;
t/distro/file_metadata.t:13:use Parrot::Revision;
t/distro/file_metadata.t:219: unless ( $Parrot::Revision::current
or `svk ls .` ) {
tools/build/revision_c.pl:25:use Parrot::Revision;
tools/build/revision_c.pl:46: return ${Parrot::Revision::current};
tools/build/revision_c.pl:51: return ${Parrot::Revision::config};
