[perl #71754] 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 eca8de0771c3996e80ec9c3126224574f071af69
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Jan 11 16:24:54 2010 +0000

    [t/spec] Test for RT 71754: callsame used in multi sub
    
    git-svn-id: http://svn.pugscode.org/p...@29520 
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
new file mode 100644
index 0000000..d9062ca
--- /dev/null
+++ b/t/spec/S06-advanced_subroutine_features/callsame.t
@@ -0,0 +1,21 @@
+use v6;
+use Test;
+plan *;
+
+# RT 71754
+{
+    my @called;
+    multi rt71754( Num $x ) {
+        push @called, 'Num';
+    }
+    multi rt71754( Int $x ) {
+        push @called, 'Int';
+        callsame;
+    }
+    lives_ok { rt71754( 71754 ) }, 'Can call multi that uses "callsame"';
+    is @called, <Int Num>, 'multi with "callsame" worked';
+}
+
+done_testing;
+
+# vim: ft=perl6