[perl #69314] tests available

[kyleha]

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

commit d19774bc271975862491aee6427f9e8d59532716
Author: radus <ra...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Jun 27 08:03:52 2010 +0000

    [t/spec] Added test for RT69314 - Null PMC access when calling 'callsame' 
directly from a sub in Rakudo.
    
    git-svn-id: http://svn.pugscode.org/p...@31473 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-advanced_subroutine_features/callsame.t 
b/t/spec/S06-advanced_subroutine_features/callsame.t
index d9062ca..65b6108 100644
--- a/t/spec/S06-advanced_subroutine_features/callsame.t
+++ b/t/spec/S06-advanced_subroutine_features/callsame.t
@@ -16,6 +16,20 @@ plan *;
     is @called, <Int Num>, 'multi with "callsame" worked';
 }
 
+# RT 69314
+
+{
+    sub rt69314($n) { 
+        if $n { 
+            callsame($n-1);
+        }
+    }; 
+    
+    #?rakudo todo 'Calling callsame directly from a sub'
+    lives_ok {rt69314(1)}, 'Calling callsame directly from a sub works';
+
+}
+
 done_testing;
 
 # vim: ft=perl6