# 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.
