lexsub.t: Fix a test

This is not testing what I meant it to test: that ‘sub d’ will respect
a preceding ‘our sub d;’.  If ‘sub d’ is in the same package, it makes
no difference, so the test tests nothing.

It turns out this does not work yet.

diff --git a/t/cmd/lexsub.t b/t/cmd/lexsub.t
index 0b35964..0732678 100644 (file)
--- a/t/cmd/lexsub.t
+++ b/t/cmd/lexsub.t
@@ -5,7 +5,7 @@ BEGIN {
     require './test.pl';
     *bar::is = *is;
 }
-plan 14;
+plan 13;
 
 {
   our sub foo { 42 }
@@ -59,11 +59,10 @@ sub bar::c { 43 }
 }
 {
   our sub d;
-  sub d { 'd42' }
   sub bar::d { 'd43' }
   package bar;
+  sub d { 'd42' }
   { local $::TODO = ' ';
-    is d, 'd42', 'our sub foo; applies to subsequent sub foo {}';
+    is eval { ::d },'d42', 'our sub foo; applies to subsequent sub foo {}';
   }
-  is &d, 'd42', 'our sub foo; applies to subsequent sub foo {} (amper)';
 }