[svn:Module-Build] r10224 - Module-Build/trunk/t

[ericwilhelm]

Author: ericwilhelm
Date: Sun Nov 11 12:00:39 2007
New Revision: 10224

Modified:
   Module-Build/trunk/t/moduleinfo.t

Log:
t/moduleinfo.t - check explict module parameter for new_from_file()


Modified: Module-Build/trunk/t/moduleinfo.t
==============================================================================
--- Module-Build/trunk/t/moduleinfo.t   (original)
+++ Module-Build/trunk/t/moduleinfo.t   Sun Nov 11 12:00:39 2007
@@ -4,7 +4,7 @@
 
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 81;
+use MBTest tests => 86;
 
 use Cwd ();
 my $cwd = Cwd::cwd;
@@ -328,6 +328,20 @@
   $i++;
 }
 
+# check the 'explicit module' usage of new_from_file()
+($i, $n) = (1, scalar(@scripts) - 3);
+foreach my $script (@scripts[3 .. $#scripts]) {
+  $dist->change_file('bin/simple.plx', $script);
+  $dist->regen;
+  $pm_info = Module::Build::ModuleInfo->new_from_file(
+    File::Spec->catfile('bin', 'simple.plx'),
+    module => '_private',
+  );
+
+  is($pm_info->version, '999', "correct script version ($i of $n)");
+  $i++;
+}
+
 
 # examine properties of a module: name, pod, etc
 $dist->change_file( 'lib/Simple.pm', <<'---' );