Switching to `` requires one more \ to escape $Config in new_config=`...`

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

diff --git a/t/lib/mypragma.t b/t/lib/mypragma.t
index 48e9865..0ebd207 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 => 13;
+use Test::More tests => 14;
 
 use mypragma (); # don't enable this pragma yet
 
@@ -22,7 +22,10 @@ is(mypragma::in_effect(), undef, "pragma not in effect yet");
        or die $@;
 
     use mypragma;
+    use Sans_mypragma;
     is(mypragma::in_effect(), 42, "pragma is in effect within this block");
+    is(Sans_mypragma::affected(), undef,
+       "pragma not in effect outside this file");
     eval qq{is(mypragma::in_effect(), 42,
               "pragma is in effect within this eval"); 1} or die $@;