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 }