add TODO test for RT#85961: $Foo::VERSION implying package Foo

Author: karenetheridge

t/extract-package.t

@@ -99,6 +99,15 @@ package Simple''Edward;
 package Simple-Edward;
 ---
 },
+{
+  name => 'no assumption of package merely if its $VERSION is referenced',
+  package => [ 'Simple' ],
+  code => <<'---',
+package Simple;
+$Foo::Bar::VERSION = '1.23';
+---
+  TODO => 'fix me! RT#85961',
+},
 );
 
 my $test_num = 0;

t/extract-version.t

@@ -296,9 +296,20 @@ our $VERSION = "1.23";
   vers => '1.23_01',
   all_versions => { Simple => '1.23_01' },
 },
+{
+  name => 'Two version assignments, no package',
+  code => <<'---',
+  $Simple::VERSION = '1.230';
+  $Simple::VERSION = eval $Simple::VERSION;
+---
+  vers => $undef,
+  all_versions => { Simple => '1.230' },
+  TODO => 'fix me! RT#85961',
+},
 {
   name => 'Two version assignments, should ignore second one',
   code => <<'---',
+package Simple;
   $Simple::VERSION = '1.230';
   $Simple::VERSION = eval $Simple::VERSION;
 ---
@@ -548,6 +559,15 @@ package Simple;
   all_versions => { Simple => '1.23' },
   TODO => 'apply fix from ExtUtils-MakeMaker PR#135',
 },
+{
+  name => 'no assumption of primary version merely if a package\'s $VERSION is referenced',
+  code => <<'---',
+package Simple;
+$Foo::Bar::VERSION = '1.23';
+---
+  vers => undef,
+  all_versions => { 'Foo::Bar' => '1.23' },
+},
 );
 
 my $test_num = 0;