X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=t%2F11-global.t;h=99a40f5980de738ce97297d343af9366bda13a6c;hp=047529c1fdd3d9f0792a659788abf9165fe3d020;hb=18eafa9533d73e88dee2e1114b4835fb8a65d844;hpb=6ff9c73813cc7b7f722c2693d0a0aea4a526b931 diff --git a/t/11-global.t b/t/11-global.t index 047529c..99a40f5 100644 --- a/t/11-global.t +++ b/t/11-global.t @@ -3,21 +3,21 @@ use strict; use warnings; -use Variable::Temp 'temp'; +use Variable::Temp 'set_temp'; use Test::More tests => 13; our $x = 1; is $x, 1; { - temp $x = 2; + set_temp $x => 2; is $x, 2; $x = 3; is $x, 3; { - temp $x = 4; + set_temp $x => 4; is $x, 4; - temp $x = 5; + set_temp $x => 5; is $x, 5; } is $x, 3; @@ -28,12 +28,12 @@ is $x, 1; is $x, 3; { local $x = 7; - temp $x = 8; + set_temp $x => 8; is $x, 8; } is $x, 3; { - temp $x = 9; + set_temp $x => 9; local $x = 10; is $x, 10; }