add broken test for a return that uses //

[2shortplanks]

No description provided.

[2shortplanks]

When I run this test I currently get:

$ prove -l -v t/plugin-definedor.t
t/plugin-definedor.t ..
ok 1 - my $x = $y // $z;
ok 2 - my $x = ($y //= $z);
ok 3 - my $x; my $y = 3; $x //= $y; say $x;
ok 4 - my $x; my $y = 3; $x //= $y if $z; say $x;
Match failed at /tmp/Babble/lib/Babble/Match.pm line 41.
# Tests were run but no plan was declared and done_testing() was not seen.
# Looks like your test exited with 255 just after 4.
Dubious, test returned 255 (wstat 65280, 0xff00)
All 4 subtests passed

Test Summary Report
-------------------
t/plugin-definedor.t (Wstat: 65280 Tests: 4 Failed: 0)
  Non-zero exit status: 255
  Parse errors: No plan found in TAP output

[zmughal]

Should be:

return (map +(defined($_) ? $_ : 3), $x)[0]

[zmughal]

I've done a little debugging here and I noticed that the $tf coderef gets called twice on the example you gave. Logging $m->text gives me:

"$x // 3"

then

"(map +(defined($_) ? $_ : 3), $x)[0]"

With the second run, the call to $m->subtexts fails.

A simple fix is to add the line

return unless $m->text =~ m,//,;

at the beginning of the $tf coderef.

[zmughal]

@shadowcat-mst, I believe that this is due to duplicates returned by Babble::Match::match_positions_of()?

[zmughal]

@2shortplanks, I have added your commit (after the correction) to #6.