# New Ticket Created by Zoffix Znet
# Please include the string: [perl #129307]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=129307 >
The S05-match/perl.t contains this test:
is-deeply EVAL($/.perl), $/, 'EVAL of Match.perl recreates Match';
However, the test doesn't catch this variant that fails to recreate the exact
Match:
"ac" ~~ /(.)(.)?(.)/;
is-deeply $/.perl.EVAL, $/;
# Failed test at /tmp/2td1RCdiII line 1
# expected: Match.new(ast => Any, list => (Match.new(ast => Any, list =>
(), hash => Map.new(()), orig => "ac", to => 1, from => 0)), hash =>
Map.new(("" => [])), orig => "ac", to => 2, from => 0)
# got: Match.new(ast => Any, list => (), hash => Map.new(()), orig =>
"ac", to => 2, from => 0) «exit code = 1»
This appears to have been the case since 2015.07, where the output is slightly
different, but the `list` key is still empty:
# Failed test at /tmp/VGpy7_vt6i line 1
# expected: Match.new(ast => Any, list => (Match.new(ast => Any, list =>
(), hash => EnumMap.new(), orig => "ac", to => 1, from => 0), Any,
Match.new(ast => Any, list => (), hash => EnumMap.new(), orig => "ac", to => 2,
from => 1)), hash => EnumMap.new("" => []), orig => "ac", to => 2, from => 0)
# got: Match.new(ast => Any, list => (), hash => EnumMap.new(), orig
=> "ac", to => 2, from => 0) «exit code = 1»
