X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=t%2F21-lvalue-sub.t;fp=t%2F21-lvalue-sub.t;h=42aed9750114c770647eb79a9f5a13c57dd94588;hp=f1ed334fb8fe3a2d841683a6e60085633e4c8102;hb=94ab589e95cb92b6c1d276ee424914398ecbe698;hpb=51155d8792c5567e09513dba0b7c847d824433dd

diff --git a/t/21-lvalue-sub.t b/t/21-lvalue-sub.t
index f1ed334..42aed97 100644
--- a/t/21-lvalue-sub.t
+++ b/t/21-lvalue-sub.t
@@ -9,7 +9,7 @@ use Test::More;
 
 BEGIN {
  if ("$]" >= 5.016) {
-  plan tests => 10;
+  plan tests => 12;
  } else {
   plan skip_all => 'perl 5.16 required to have \$ proto accept sub entries';
  }
@@ -67,3 +67,10 @@ $x->is_value(1);
 }
 
 $x->is_value(1);
+
+{
+ temp $x->value;
+ $x->is_value(undef);
+}
+
+$x->is_value(1);