Author: kwilliams
Date: Sun Aug 6 19:30:47 2006
New Revision: 6760
Modified:
Module-Build/trunk/t/metadata.t
Log:
I think I meant to check this in with the last commit, and not t/moduleinfo.t.
Oh well.
Modified: Module-Build/trunk/t/metadata.t
==============================================================================
--- Module-Build/trunk/t/metadata.t (original)
+++ Module-Build/trunk/t/metadata.t Sun Aug 6 19:30:47 2006
@@ -2,7 +2,7 @@
use strict;
use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 43;
+use MBTest tests => 47;
use Cwd ();
my $cwd = Cwd::cwd;
@@ -138,6 +138,21 @@
'Foo::Bar' => { file => 'lib/Simple.pm',
version => '1.23' }});
+{
+ $dist->change_file( 'lib/Simple.pm', <<'---' );
+package Simple;
+$VERSION = version->new('0.60.' . qw$Revision$[1]);
+package Simple::Simon;
+$VERSION = version->new('0.61.' . qw$Revision$[1]);
+---
+ $dist->regen;
+ my $provides = new_build()->prepare_metadata()->{provides};
+ is $provides->{'Simple'}{version}, '0.60.128', "Check version";
+ is $provides->{'Simple::Simon'}{version}, '0.61.129', "Check version";
+ is ref($provides->{'Simple'}{version}), '', "Versions from
prepare_metadata() aren't refs";
+ is ref($provides->{'Simple::Simon'}{version}), '', "Versions from
prepare_metadata() aren't refs";
+}
+
# Single file with multiple differing packages, no corresponding package
# Simple.pm => Foo
