use strict;
use warnings;
-use Test::More tests => 61 + 4;
+use Test::More tests => 70 + 4;
use Scope::Upper qw/localize UP HERE/;
is foo(), 'x', 'localize *foo, sub { "y" } => UP [end]';
}
+sub X::foo { 'X::foo' }
+
+{
+ {
+ {
+ localize 'X::foo', sub { 'X::foo 2' } => UP;
+ is(X->foo, 'X::foo', 'localize "X::foo", sub { "X::foo 2" } => UP [not yet]')
+ }
+ is(X->foo, 'X::foo 2', 'localize "X::foo", sub { "X::foo 2" } => UP [ok]');
+ }
+ is(X->foo, 'X::foo', 'localize "X::foo", sub { "X::foo 2" } => UP [end]');
+}
+
+@Y::ISA = 'X';
+
+{
+ {
+ {
+ localize 'X::foo', sub { 'X::foo 3' } => UP;
+ is(Y->foo, 'X::foo', 'localize "X::foo", sub { "X::foo 3" } => UP [not yet]')
+ }
+ is(Y->foo, 'X::foo 3', 'localize "X::foo", sub { "X::foo 3" } => UP [ok]');
+ }
+ is(Y->foo, 'X::foo', 'localize "X::foo", sub { "X::foo 2" } => UP [end]');
+}
+
+{
+ {
+ {
+ localize 'Y::foo', sub { 'Y::foo' } => UP;
+ is(Y->foo, 'X::foo', 'localize "Y::foo", sub { "Y::foo" } => UP [not yet]');
+ }
+ is(Y->foo, 'Y::foo', 'localize "Y::foo", sub { "Y::foo" } => UP [ok]');
+ }
+ is(Y->foo, 'X::foo', 'localize "Y::foo", sub { "Y::foo" } => UP [end]');
+}
+
# Invalid
sub invalid_ref { qr/^Invalid \Q$_[0]\E reference as the localization target/ }