[perl #65322] tests available

[kyleha]

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

commit 13637aaf15a83ef65dfdfc9b3e12f04ec37b2ea0
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Oct 10 23:45:49 2009 +0000

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

diff --git a/t/spec/S06-multi/proto.t b/t/spec/S06-multi/proto.t
index 6e78b4f..b1e4ecf 100644
--- a/t/spec/S06-multi/proto.t
+++ b/t/spec/S06-multi/proto.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 13;
+plan *;
 
 # Test for proto definitions
 class A { }
@@ -54,4 +54,16 @@ is(foo(42),    1, 'dispatch with no possible candidates fell 
back to proto');
 eval_dies_ok 'proto rt68242($a){};proto rt68242($c,$d){};',
     'attempt to define two proto subs with the same name dies';
 
+# RT #65322
+{
+    my $rt65322 = q[
+        multi sub rt65322( Int $n where 1 ) { 1 }
+              sub rt65322( Int $n ) { 2 }
+    ];
+    #?rakudo todo 'RT #65322'
+    eval_dies_ok $rt65322, "Can't define sub and multi sub without proto";
+}
+
+done_testing;
+
 # vim: ft=perl6