X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=t%2F11-global.t;fp=t%2F11-global.t;h=0000000000000000000000000000000000000000;hb=5a4659ac8f3724ea57a8a2cf5ccf32f6e66ead22;hp=99a40f5980de738ce97297d343af9366bda13a6c;hpb=44bbd934b677f763001b163b1b96c58d6d6b8602;p=perl%2Fmodules%2FVariable-Temp.git diff --git a/t/11-global.t b/t/11-global.t deleted file mode 100644 index 99a40f5..0000000 --- a/t/11-global.t +++ /dev/null @@ -1,42 +0,0 @@ -#!perl -T - -use strict; -use warnings; - -use Variable::Temp 'set_temp'; - -use Test::More tests => 13; - -our $x = 1; -is $x, 1; -{ - set_temp $x => 2; - is $x, 2; - $x = 3; - is $x, 3; - { - set_temp $x => 4; - is $x, 4; - set_temp $x => 5; - is $x, 5; - } - is $x, 3; - { - local $x = 6; - is $x, 6; - } - is $x, 3; - { - local $x = 7; - set_temp $x => 8; - is $x, 8; - } - is $x, 3; - { - set_temp $x => 9; - local $x = 10; - is $x, 10; - } - is $x, 3; -} -is $x, 1;