Fixed with cb82760625f6b8fec64a75 , tests needed.

> On 31 May 2017, at 07:20, brian d foy (via RT) <perl6-bugs-follo...@perl.org> 
> wrote:
> 
> # New Ticket Created by  "brian d foy" 
> # Please include the string:  [perl #131408]
> # in the subject line of all future correspondence about this issue. 
> # <URL: https://rt.perl.org/Ticket/Display.html?id=131408 >
> 
> 
> I have this program:
> 
>    #!/Applications/Rakudo/bin/perl6
> 
>    use Test;
>    bail-out();
> 
> When I run it, it complains about too many parameters:
> 
>    $ prove -e 'perl6 -Ilib' t/bail.t
>    t/bail.t .. Any
>    Too many positionals passed; expected 1 argument but got 2
>      in sub bail-out at
> /Applications/Rakudo/share/perl6/sources/C712FE6969F786C9380D643DF17E85D06868219E
> (Test) line 258
>      in block <unit> at t/bail.t line 4
> 
>    t/bail.t .. Dubious, test returned 1 (wstat 256, 0x100)
>    No subtests run
> 
>    Test Summary Report
>    -------------------
>    t/bail.t (Wstat: 256 Tests: 0 Failed: 0)
>      Non-zero exit status: 1
>      Parse errors: No plan found in TAP output
>    Files=1, Tests=0,  2 wallclock secs ( 0.03 usr  0.01 sys +  2.14
> cusr  0.16 csys =  2.34 CPU)
>    Result: FAIL
> 
> This is the section causing the problem:
> 
>    256     sub bail-out ($desc?) is export {
>    257         $output.put: join ' ', 'Bail out!', ( $desc ?? $desc !! '' );
>    258         $done_testing_has_been_run = 1;
>    259         exit 255;
>    260     }
> 
> I made several changes to try to suss out the problem, but I couldn't
> make the error go away without removing line 257. When I check 
> "$output.^name",
> I get "Any".
> 
> Running without `prove` shows the same problem:
> 
>    $ perl6 t/bail.t
>    Too many positionals passed; expected 1 argument but got 2
>      in sub bail-out at
> /Applications/Rakudo/share/perl6/sources/C712FE6969F786C9380D643DF17E85D06868219E
> (Test) line 257
>      in block <unit> at t/bail.t line 4
> 
> Running it in https://glot.io/new/perl6 shows the same thing.
> 
> Besides the actual error, the error message isn't great. I would have
> liked it to mention the method name and class causing the problem.
> 
> 
> This is:
> 
>    $ perl6 -v
>    This is Rakudo version 2017.04.3 built on MoarVM version 
> 2017.04-53-g66c6dda
>    implementing Perl 6.c.

Reply via email to