X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=t%2F12-destroy.t;h=5fdc85339f961bf611c6fe354b30b24afaf5cbda;hp=48217413507919fcae3c54859f228bc5f4ba52e2;hb=18eafa9533d73e88dee2e1114b4835fb8a65d844;hpb=6ff9c73813cc7b7f722c2693d0a0aea4a526b931 diff --git a/t/12-destroy.t b/t/12-destroy.t index 4821741..5fdc853 100644 --- a/t/12-destroy.t +++ b/t/12-destroy.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Variable::Temp 'temp'; +use Variable::Temp 'set_temp'; use Test::More tests => 16; @@ -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;