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

[kwilliams]

Author: kwilliams
Date: Thu Sep 28 09:35:53 2006
New Revision: 7859

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

Log:
Add failing test for double-assignment

Modified: Module-Build/trunk/t/moduleinfo.t
==============================================================================
--- Module-Build/trunk/t/moduleinfo.t   (original)
+++ Module-Build/trunk/t/moduleinfo.t   Thu Sep 28 09:35:53 2006
@@ -2,7 +2,7 @@
 
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 79;
+use MBTest tests => 81;
 
 use Cwd ();
 my $cwd = Cwd::cwd;
@@ -171,7 +171,10 @@
   package Simple;
   use version; our $VERSION = qv('1.230');
 ---
-
+  <<'---', # Two version assignments, should ignore second one
+  $Simple::VERSION = '1.230';
+  $Simple::VERSION = eval $Simple::VERSION;
+---
 );
 
 my( $i, $n ) = ( 1, scalar( @modules ) );