]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/eval-comp.t
Clean the MANIFEST
[perl/modules/re-engine-Plugin.git] / t / eval-comp.t
1 =pod
2
3 This will always die, see L<re::engine::Plugin/comp> for why.
4
5 This can be made to live regardless of C<eval> by adding C<| G_EVAL>
6 to C<call_sv()> in C<Plugin_comp>.
7
8 =cut
9
10 use strict;
11
12 use Test::More skip_all => 'Always dies';
13
14 use re::engine::Plugin (
15     comp => sub { die "died at comp time" },
16 );
17
18 eval { "str" ~~ /noes/ };
19
20 TODO: {
21     local $TODO = 'passing tests for known bug with how we handle eval';
22     pass;
23 }