I'm working from an svn fetched version - but the 03-revision.t goes
out, makes a tmp dir, puts in a cache file .parrot_current_rev (w/ 16000
in it) file and a Makefile so the call to Parrot::Revision::current runs:
sub _get_revision {
my $revision;
if (-f $cache and ! -f 'Makefile') {
eval {
open my $FH, "<", $cache;
chomp($revision = <$FH>);
close $FH;
};
return $revision unless $@;
}
$revision = _analyze_sandbox();
and is going to call analyze_sandbox. I don't have the boxes here but if
I run svn info in that tmp dir I get 'not a working copy' and that'll
fall through to git and svk. Running:
perl -e 'use lib "lib/Parrot"; require Revision; print
$Parrot::Revision::current '
0
in that tmp dir, I get zero, which is what I see if I mod the 03-rev
test (shouldn't the test be:
like($Parrot::Revision::current, $rev,
"Got numeric value for reversion number:
$Parrot::Revision::current");
not:
like($Parrot::Revision::current, qr/^\d+$/,
"Got numeric value for reversion number");
) ... but maybe I'm missing something.
a
