# New Ticket Created by Christian Bartolomaeus
# Please include the string: [perl #132514]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=132514 >
Currently the following test files under S03-operators do not run
to completion on the JVM backend:
S03-operators/set_addition.t aborted 513 test(s)
S03-operators/set_difference.t aborted 2 test(s)
S03-operators/set_multiply.t aborted 513 test(s)
S03-operators/set_proper_subset.t aborted 2 test(s)
S03-operators/set_subset.t aborted 2 test(s)
S03-operators/set_symmetric_difference.t aborted 2 test(s)
S03-operators/set_union.t aborted 404 test(s)
I tried to golf the failures from set_addition.t and found the
following:
$ ./perl6-j --ll-exception -e '&infix:<(+)>(SetHash.new, SetHash.new,
SetHash.new); &infix:<(+)>(|(Set.new, Set.new, Set.new));
&infix:<(+)>(|(Set.new, Set.new, Set.new)); &infix:<(+)>(|(Set.new, Set.new,
Set.new));'
Too many positionals passed; expected 2 arguments but got 3
in infix:<(+)> (gen/jvm/CORE.setting:48959)
in infix:<(+)> (gen/jvm/CORE.setting:48952)
in <unit> (-e:1)
in <unit-outer> (-e:1)
in eval (gen/jvm/stage2/NQPHLL.nqp:1181)
in <anon> (gen/jvm/stage2/NQPHLL.nqp:1288)
in command_eval (gen/jvm/stage2/NQPHLL.nqp:1285)
in command_eval (src/Perl6/Compiler.nqp:42)
in command_line (gen/jvm/stage2/NQPHLL.nqp:1269)
in MAIN (gen/jvm/main.nqp:47)
in <mainline> (gen/jvm/main.nqp:38)
in <anon> (gen/jvm/main.nqp)
$ ./perl6-j --version
This is Rakudo version 2017.11-38-g1668b4f0b built on JVM
implementing Perl 6.c.
For some reasons the fourth statement calls a multi sub
of &infix:<(+)> with two parameters:
https://github.com/rakudo/rakudo/blob/e7c0a644753705891bf340ae6dc6e4f0cc63ddee/src/core/set_addition.pm#L12
I've run the above code on an older commit (4efcc29c80, 2017-02-06)
and there was no error.
