# New Ticket Created by Zoffix Znet # Please include the string: [perl #128417] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=128417 >
The results of these tests should be reversed, the eval-dies-ok succeeding and eval-lives-ok failing: zoffix@leliana:/tmp/tmp.0dxxAHGdyB$ perl6 -e 'm: use Test; sub say {die $^a}; eval-dies-ok "say 42"' 42 not ok 1 - # Failed test at -e line 1 zoffix@leliana:/tmp/tmp.0dxxAHGdyB$ perl6 -e 'm: use Test; sub say {die $^a}; eval-lives-ok "say 42"' 42 ok 1 - zoffix@leliana:/tmp/tmp.0dxxAHGdyB$ The reason is the code is EVALED in the context of Test.pm6 and not the current code. Compare that to the current implementation of throws-like, which does use current context.