t/eval-comp.t

   1 =pod
   2
   3 Having C<eval> catch C<die> in one of the callbacks when called
   4 indirectly as C</pattern/> doesn't work. This is not at all surprising
   5 since the eventual call to the callback sub is not exectuted within
   6 the context that C</pattern> appeared in, but there's a test for it
   7 anyway.
   8
   9 The other eval tests are just copies of this one made because the
  10 interpreter can only die so many times per process.
  11
  12 =cut
  13
  14 use strict;
  15
  16 use Test::More skip_all => 'TODO: make this work';
  17 #use Test::More tests => 1;
  18
  19 use re::engine::Plugin (
  20     comp => sub { die "died at comp time" },
  21     exec => sub { 1 },
  22 );
  23
  24 eval { /noes/ };
  25
  26 TODO: {
  27     local $TODO = 'passing tests for known bug with how we handle eval';
  28     pass;
  29 }