Test localize on magical scalar variables

diff --git a/MANIFEST b/MANIFEST
index 0a410071cf9a49b92f8d0aae6da744b72d15c251..c8b397575919fb4c0e868f611ae9748af1c15846 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -18,6 +18,7 @@ t/20-localize-target.t
 t/21-localize-level.t
 t/22-localize-block.t
 t/23-localize-ctl.t
+t/24-localize-magic.t
 t/25-localize-multi.t
 t/30-localize_elem-target.t
 t/31-localize_elem-level.t

diff --git a/t/24-localize-magic.t b/t/24-localize-magic.t
new file mode 100644 (file)
index 0000000..3bcb423
--- /dev/null
+++ b/t/24-localize-magic.t
@@ -0,0 +1,32 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Scope::Upper qw/localize UP HERE/;
+
+use Test::More tests => 5;
+
+my @a = qw/a b c/;
+
+{
+ local $" = '';
+ {
+  localize '$"', '_' => HERE;
+  is "@a", 'a_b_c', 'localize $" => HERE [ok]';
+ }
+ is "@a", 'abc', 'localize $" => HERE [end]';
+}
+
+{
+ local $" = '';
+ {
+  local $" = '-';
+  {
+   localize '$"', '_' => UP;
+   is "@a", 'a-b-c', 'localize $" => UP [not yet]';
+  }
+  is "@a", 'a_b_c', 'localize $" => UP [ok]';
+ }
+ is "@a", 'abc', 'localize $" => UP [end]';
+}