Permalink
Browse files

remove ambiguous cases from positional-vs-named.t, fudge for rakudo

  • Loading branch information...
1 parent 32c4ff6 commit 0058a898e58d23c4186aaa6bbcae91b5128096b6 @moritz moritz committed May 21, 2011
Showing with 21 additions and 21 deletions.
  1. +21 −21 S06-multi/positional-vs-named.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 26;
+plan 24;
# check the subroutine with the closest matching signature is called
#
@@ -9,15 +9,15 @@ plan 26;
# the single parameter cases named and positional below - part of RT 53814
-multi earth (:$me) {"me $me"};
-multi earth (:$him) {"him $him"};
-multi earth (:$me, :$him) {"me $me him $him"};
-multi earth (:$me, :$him, :$her) {"me $me him $him her $her"};
-multi earth ($me) {"pos $me"};
-multi earth ($me, :$you) {"pos $me you $you"};
-multi earth ($me, :$her) {"pos $me her $her"};
-multi earth ($me, $you) {"pos $me pos $you"};
-multi earth ($me, $you, :$her) {"pos $me pos $you her $her"};
+multi earth (:$me!) {"me $me"};
+multi earth (:$him!) {"him $him"};
+multi earth (:$me!, :$him!) {"me $me him $him"};
+multi earth (:$me!, :$him!, :$her!) {"me $me him $him her $her"};
+multi earth ($me) {"pos $me"};
+multi earth ($me, :$you!) {"pos $me you $you"};
+multi earth ($me, :$her!) {"pos $me her $her"};
+multi earth ($me, $you) {"pos $me pos $you"};
+multi earth ($me, $you, :$her!) {"pos $me pos $you her $her"};
is( earth(me => 1), 'me 1', 'named me');
is( earth(him => 2), 'him 2', 'named you');
@@ -28,9 +28,10 @@ is( earth(him => 2, me => 1, her => 3), 'me 1 him 2 her 3', 'named him named me
is( earth(her => 3, me => 1, him => 2), 'me 1 him 2 her 3', 'named her named me named him');
is( earth(her => 3, him => 2, me => 1), 'me 1 him 2 her 3', 'named her named him named me');
-is( earth('a'), 'pos a', 'pos');
+#?rakudo skip 'No applicable candidates found - bug?'
is( earth('b', you => 4), 'pos b you 4', 'pos, named you');
is( earth('c', her => 3), 'pos c her 3', 'pos, named her');
+#?rakudo skip 'No applicable candidates found '
is( earth('d', 'e'), 'pos d pos e', 'pos, pos');
is( earth('f', 'g', her => 3), 'pos f pos g her 3', 'pos, pos, named');
@@ -39,15 +40,14 @@ is( earth('f', 'g', her => 3), 'pos f pos g her 3', 'pos, pos, named');
# defined in reverse order
#
-multi wind ($me, $you, :$her) {"pos $me pos $you her $her"};
-multi wind ($me, $you) {"pos $me pos $you"};
-multi wind ($me, :$her) {"pos $me her $her"};
-multi wind ($me, :$you) {"pos $me you $you"};
-multi wind ($me) {"pos $me"};
-multi wind (:$me, :$him, :$her) {"me $me him $him her $her"};
-multi wind (:$me, :$him) {"me $me him $him"};
-multi wind (:$him) {"him $him"};
-multi wind (:$me) {"me $me"};
+multi wind ($me, $you, :$her!) {"pos $me pos $you her $her"};
+multi wind ($me, $you) {"pos $me pos $you"};
+multi wind ($me, :$her!) {"pos $me her $her"};
+multi wind ($me, :$you!) {"pos $me you $you"};
+multi wind (:$me!, :$him!, :$her!) {"me $me him $him her $her"};
+multi wind (:$me!, :$him!) {"me $me him $him"};
+multi wind (:$him) {"him $him"};
+multi wind (:$me) {"me $me"};
is( wind(me => 1), 'me 1', 'named me');
is( wind(him => 2), 'him 2', 'named you');
@@ -58,9 +58,9 @@ is( wind(him => 2, me => 1, her => 3), 'me 1 him 2 her 3', 'named him named me n
is( wind(her => 3, me => 1, him => 2), 'me 1 him 2 her 3', 'named her named me named him');
is( wind(her => 3, him => 2, me => 1), 'me 1 him 2 her 3', 'named her named him named me');
-is( wind('a'), 'pos a', 'pos');
is( wind('b', you => 4), 'pos b you 4', 'pos, named you');
is( wind('c', her => 3), 'pos c her 3', 'pos, named her');
+#?rakudo skip 'No applicable candidates found '
is( wind('d', 'e'), 'pos d pos e', 'pos, pos');
is( wind('f', 'g', her => 3), 'pos f pos g her 3', 'pos, pos, named');

0 comments on commit 0058a89

Please sign in to comment.