Test localize on magical scalar variables

[perl/modules/Scope-Upper.git] / t / 24-localize-magic.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]';
+}