[perl #67932] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S06-signature/code.t

commit 6d18247f0f0e02ee8084016b843522245cc6c5bb
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Apr 21 20:30:51 2010 +0000

    [t/spec] test for RT #67932
    
    git-svn-id: http://svn.pugscode.org/p...@30432 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-signature/code.t b/t/spec/S06-signature/code.t
index 9a54662..733970b 100644
--- a/t/spec/S06-signature/code.t
+++ b/t/spec/S06-signature/code.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 6;
+plan 8;
 
 # TODO: move this test to closure-parameters.t if it works in the future
 
@@ -37,4 +37,15 @@ is tester2({ 'block' }), 1, 'Can pass a block to a 
&parameter';
             "Can't pass something that isn't typed as returning Callable";
 }
 
+# RT #67932
+{
+    my $tracker;
+    sub foo(&foo = &foo) {
+        $tracker = &foo
+    };
+    lives_ok { foo },
+        'can call a sub with a code object defaulting to something of its own 
name';
+    ok !$tracker.defined, 'the inner &foo is undefined (scoping)';
+}
+
 # vim: ft=perl6