Test invoke/postcircmfix:<( )> interaction.

Raku · Dec 16, 2014 · d692769 · d692769
1 parent ac5776a
commit d692769
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S12-methods/fallback.t b/S12-methods/fallback.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 11;
+plan 13;
 
 # L<S12/"FALLBACK methods"/"special name FALLBACK">
 
@@ -55,4 +55,12 @@ is F.new.something(''), 'Str', 'Can multi-dispatch on regular arguments (also on
 
 dies_ok { F.something() }, 'Error when none of the candidates match';
 
+class I {
+    method postcircumfix:<( )>(|) { 'invaught' }
+    method FALLBACK($name, |c) { 'yes, I work' }
+}
+my $i = I.new;
+is $i.spy, 'yes, I work', 'FALLBACK is effective with a postcircumfix:<( )>';
+is $i(), 'invaught', 'postcircumfix:<( )> beats FALLBACK';
+
 # vim: ft=perl6