Make use VERSION also load feature.pm

[p5sagit/p5-mst-13.2.git] / t / lib / mypragma.t

diff --git a/t/lib/mypragma.t b/t/lib/mypragma.t
index b7a312c..48e9865 100644 (file)
--- a/t/lib/mypragma.t
+++ b/t/lib/mypragma.t
@@ -7,7 +7,7 @@ BEGIN {
 
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 13;
 
 use mypragma (); # don't enable this pragma yet
 
@@ -17,10 +17,28 @@ BEGIN {
 
 is(mypragma::in_effect(), undef, "pragma not in effect yet");
 {
+    is(mypragma::in_effect(), undef, "pragma not in effect yet");
+    eval qq{is(mypragma::in_effect(), undef, "pragma not in effect yet"); 1}
+       or die $@;
+
     use mypragma;
-    is(mypragma::in_effect(), 1, "pragma is in effect within this block");
+    is(mypragma::in_effect(), 42, "pragma is in effect within this block");
+    eval qq{is(mypragma::in_effect(), 42,
+              "pragma is in effect within this eval"); 1} or die $@;
+
+    {
+      no mypragma;
+      is(mypragma::in_effect(), 0, "pragma no longer in effect");
+      eval qq{is(mypragma::in_effect(), 0, "pragma no longer in effect"); 1}
+       or die $@;
+    }
+
+    is(mypragma::in_effect(), 42, "pragma is in effect within this block");
+    eval qq{is(mypragma::in_effect(), 42,
+              "pragma is in effect within this eval"); 1} or die $@;
 }
 is(mypragma::in_effect(), undef, "pragma no longer in effect");
+eval qq{is(mypragma::in_effect(), undef, "pragma not in effect"); 1} or die $@;
 
 
 BEGIN {