[perl #65672] tests available

[kyleha]

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

commit 28f3f16da7fa11f0f22f39f3a5e0f6b4dfe9ee8a
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Oct 26 21:48:28 2009 +0000

    [t/spec] Tests for RT #65672, multi does Callable
    
    git-svn-id: http://svn.pugscode.org/p...@28909 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-multi/syntax.t b/t/spec/S06-multi/syntax.t
index f5efd83..141bec8 100644
--- a/t/spec/S06-multi/syntax.t
+++ b/t/spec/S06-multi/syntax.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 31;
+plan *;
 
 # L<S06/Routine modifiers/>
 # L<S06/Parameters and arguments/>
@@ -51,6 +51,8 @@ eval_dies_ok 'class B { multi method {} }', 'anonymous multi 
method is an error'
 eval_dies_ok 'class C { proto method {} }', 'anonymous proto method is an 
error';
 
 ok(&foo ~~ Multi, 'a multi does Multi');
+#?rakudo todo 'RT 65672'
+ok(&foo ~~ Callable, 'a multi does Callable');
 is(~&foo, 'foo',  'a multi stringifies sensibly');
 
 # note - example in ticket [perl #58948] a bit more elaborate
@@ -97,4 +99,15 @@ is(~&foo, 'foo',  'a multi stringifies sensibly');
     is rt64922([1,2]), 2, 'optional parameter does not break type-based 
candidate sorting';
 }
 
+# RT #65672
+{
+    multi rt65672()   { 99 }
+    multi rt65672($x) { $x }
+    sub rt65672caller( &x ) { &x() }
+    #?rakudo skip 'RT 65672'
+    is rt65672caller( &rt65672 ), 99, 'multi can be passed as callable';
+}
+
+done_testing;
+
 # vim: ft=perl6