[perl #65638] tests available

[kyleha]

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

commit 18aadd8fead78ab26ce3d1fd22f30443fbfd310f
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Oct 14 21:25:41 2009 +0000

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

diff --git a/t/spec/S06-operator-overloading/sub.t 
b/t/spec/S06-operator-overloading/sub.t
index 326c3e7..136e9d9 100644
--- a/t/spec/S06-operator-overloading/sub.t
+++ b/t/spec/S06-operator-overloading/sub.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 56;
+plan *;
 
 =begin pod
 
@@ -372,4 +372,18 @@ Testing operator overloading subroutines
 
 }
 
+# RT #65638
+{
+    is eval('sub infix:<,>($a, $b) { 42 }; 5, 5'), 42, 'infix:<,>($a, $b)';
+    is eval('sub infix:<,>(Int $x where 1, Int $y where 1) { 42 }; 1, 1'), 42,
+       'very specific infix:<,>';
+    #?rakudo todo 'RT 65638'
+    is eval('sub infix:<#>($a, $b) { 42 }; 5 # 5'), 42, 'infix:<#>($a, $b)';
+    #?rakudo 2 skip 'Redefinition of infix:<+> causes Test.pm to miscount'
+    is eval('sub infix:<+>() { 42 }; 5 + 5'), 10, 'infix:<+>()';
+    is eval('sub infix:<+>($a, $b) { 42 }; 5 + 5'), 42, 'infix:<+>($a, $b)';
+}
+
+done_testing;
+
 # vim: ft=perl6