fix two operator overloading tests, unfudge one for rakudo

Raku · Jun 27, 2012 · d1355fd · d1355fd
1 parent c8b1ef4
commit d1355fd
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/S06-operator-overloading/sub.t b/S06-operator-overloading/sub.t
@@ -390,8 +390,7 @@ Testing operator overloading subroutines
     #?niecza todo
     is eval('sub infix:<#>($a, $b) { 42 }; 5 # 5'), 42, 'infix:<comment char>($a, $b)';
     #?rakudo skip 'mixed overloaded operators of different arities'
-    #?niecza skip 'Excess arguments to infix:<+>'
-    is eval('sub infix:<+>() { 42 }; 5 + 5'), 10, 'infix:<+>()';
+    is eval('multi sub infix:<+>() { 42 }; 5 + 5'), 10, 'infix:<+>()';
     is eval('sub infix:<+>($a, $b) { 42 }; 5 + 5'), 42, 'infix:<+>($a, $b)';
 }
 
@@ -405,7 +404,7 @@ Testing operator overloading subroutines
 
 #?rakudo skip 'not yet implemented'
 {
-    our multi sub infix:<bar>($a, $b) {$a + $b};
+    our sub infix:<bar>($a, $b) {$a + $b};
 
     my $x bar=6;
     is $x, 6, 'bar= works for custom operators';