eval-dies-ok/eval-lives-ok EVAL code in the wrong context

[p6rt]

Migrated from rt.perl.org#128417 (status was 'rejected')

Searchable as RT128417$

[p6rt]

From @zoffixznet

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.

[p6rt]

From @zoffixznet

As per conversation with jnthn++ (http://irclog.perlgeek.de/perl6-dev/2016-06-16#i_12678792) this is actually not a bug and throws-like is buggy (reliant on a... um... wobbly feature).

[p6rt]

@zoffixznet - Status changed from 'new' to 'rejected'