]> git.vpit.fr Git - perl/modules/Variable-Temp.git/blobdiff - t/11-global.t
Merge t/10-lexical.t and t/11-global.t into t/10-base.t
[perl/modules/Variable-Temp.git] / t / 11-global.t
diff --git a/t/11-global.t b/t/11-global.t
deleted file mode 100644 (file)
index 99a40f5..0000000
+++ /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;