Skip to content

Commit

Permalink
Change broken native/where dispatch hang test
Browse files Browse the repository at this point in the history
The test tests circular hang does not occur, but relied on a buggy
behaviour that is now fixed[^1]. Fix the test by checking for hangs
using a different test routine.

Explanation why old behaviour was a bug:
https://irclog.perlgeek.de/perl6-dev/2016-10-25#i_13462673
https://rt.perl.org/Ticket/Display.html?id=129844#txn-1433016

[1] rakudo/rakudo@ccfa5e51a21f5a613ecb0cf
  • Loading branch information
zoffixznet committed Jun 12, 2017
1 parent 5023c14 commit b6f7a84
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion S06-multi/type-based.t
Original file line number Diff line number Diff line change
Expand Up @@ -226,7 +226,8 @@ is(mmd(1..3), 2, 'Slurpy MMD to listop via list');
# This once wrongly reported a multi-dispatch circularity.
multi rt107638(int $a) { 'ok' } #OK not used
multi rt107638(Str $a where 1) { } #OK not used
ok rt107638(1), 'native types and where clauses do not cause spurious circularities';
throws-like { rt107638(1) }, X::Multi::NoMatch,
'native types and where clauses do not cause spurious circularities';
}

# Coercion types introduce two candidates
Expand Down

0 comments on commit b6f7a84

Please sign in to comment.