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

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);