This is an automatically generated mail to inform you that tests are now
available in t/spec/S06-advanced_subroutine_features/lexical-subs.t
commit fe7743375a601c19eb3cf969eb9e391544b7a32d
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Wed Aug 19 22:57:24 2009 +0000
[t/spec] tests for RT #65498, lexical subs should take precedence over
outer subs of the same name
git-svn-id: http://svn.pugscode.org/p...@28038
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S06-advanced_subroutine_features/lexical-subs.t
b/t/spec/S06-advanced_subroutine_features/lexical-subs.t
index 955ee18..d0c5d23 100644
--- a/t/spec/S06-advanced_subroutine_features/lexical-subs.t
+++ b/t/spec/S06-advanced_subroutine_features/lexical-subs.t
@@ -2,10 +2,10 @@ use v6;
use Test;
-plan 7;
+plan 9;
{
- sub f() {
+ sub f() {
my sub g(){"g"}; my sub h(){g()}; h();
};
is(f(), 'g', 'can indirectly call lexical sub');
@@ -46,4 +46,14 @@ plan 7;
}
}
+# used to be http://rt.perl.org/rt3/Ticket/Display.html?id=65498
+{
+ sub a { 'outer' };
+ {
+ my sub a { 'inner' };
+ is a(), 'inner', 'inner lexical hides outer sub of same name';
+ }
+ is a(), 'outer', '... but only where it is visisble';
+}
+
# vim: ft=perl6 :
