local $package::VERSION should now actually work

[p5sagit/Module-Metadata.git] / t / metadata.t

diff --git a/t/metadata.t b/t/metadata.t
index 40231b3..f3d08aa 100644 (file)
--- a/t/metadata.t
+++ b/t/metadata.t
@@ -150,6 +150,26 @@ our $VERSION = '1.23_00_00';
   'v1.2_3' => <<'---', # package NAME VERSION
   package Simple v1.2_3;
 ---
+  '1.23' => <<'---', # trailing crud
+  package Simple;
+  our $VERSION;
+  $VERSION = '1.23-alpha';
+---
+  '1.23' => <<'---', # trailing crud
+  package Simple;
+  our $VERSION;
+  $VERSION = '1.23b';
+---
+  '1.234' => <<'---', # multi_underscore
+  package Simple;
+  our $VERSION;
+  $VERSION = '1.2_3_4';
+---
+  '0' => <<'---', # non-numeric
+  package Simple;
+  our $VERSION;
+  $VERSION = 'onetwothree';
+---
 );
 my %modules = reverse @modules;
 
@@ -157,6 +177,13 @@ plan tests => 37 + 2 * keys( %modules );
 
 require_ok('Module::Metadata');
 
+# class method C<find_module_by_name>
+my $module = Module::Metadata->find_module_by_name(
+               'Module::Metadata' );
+ok( -e $module, 'find_module_by_name() succeeds' );
+
+#########################
+
 my $tmp = MBTest->tmpdir;
 
 use DistGen;
@@ -165,13 +192,6 @@ $dist->regen;
 
 $dist->chdir_in;
 
-#########################
-
-# class method C<find_module_by_name>
-my $module = Module::Metadata->find_module_by_name(
-               'Module::Metadata' );
-ok( -e $module, 'find_module_by_name() succeeds' );
-
 
 # fail on invalid module name
 my $pm_info = Module::Metadata->new_from_module(