X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F12-destroy.t;h=5fdc85339f961bf611c6fe354b30b24afaf5cbda;hb=18eafa9533d73e88dee2e1114b4835fb8a65d844;hp=359add1a8b300c0eb0b215b9dd80fed9ac43d8f0;hpb=814870f9ed8669571ee7f95cce05765d45b7cf43;p=perl%2Fmodules%2FVariable-Temp.git diff --git a/t/12-destroy.t b/t/12-destroy.t index 359add1..5fdc853 100644 --- a/t/12-destroy.t +++ b/t/12-destroy.t @@ -3,13 +3,13 @@ use strict; use warnings; -use lib 't/lib'; -use VPIT::TestHelpers; - -use Variable::Temp 'temp'; +use Variable::Temp 'set_temp'; use Test::More tests => 16; +use lib 't/lib'; +use VPIT::TestHelpers; + my $x_is_destroyed = 0; my $x_temp1_is_destroyed = 0; my $x_temp2_is_destroyed = 0; @@ -22,7 +22,7 @@ my $x_temp2_is_destroyed = 0; }); is $x_is_destroyed, 0; - temp $x = VPIT::TestHelpers::Guard->new(sub { + set_temp $x => VPIT::TestHelpers::Guard->new(sub { is $x_is_destroyed, 0; is $x_temp2_is_destroyed, 1; ++$x_temp1_is_destroyed; @@ -31,7 +31,7 @@ my $x_temp2_is_destroyed = 0; is $x_temp1_is_destroyed, 0; is $x_temp2_is_destroyed, 0; - temp $x = VPIT::TestHelpers::Guard->new(sub { + set_temp $x => VPIT::TestHelpers::Guard->new(sub { is $x_is_destroyed, 0; is $x_temp1_is_destroyed, 0; ++$x_temp2_is_destroyed;