X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=t%2Feval-comp.t;h=104f111636d352fbd9ec3ff8dae6e662ac5a809a;hp=deebdd3dbc4f7be547d9a54f6df2a313fd78ad1d;hb=2dd7bc5f80da4fe2220e28de1102641c239d084c;hpb=def98fc0d7f5e9527b28af6b90d4ddb07fbc845c

diff --git a/t/eval-comp.t b/t/eval-comp.t
index deebdd3..104f111 100644
--- a/t/eval-comp.t
+++ b/t/eval-comp.t
@@ -1,27 +1,21 @@
 =pod
 
-Having C<eval> catch C<die> in one of the callbacks when called
-indirectly as C</pattern/> doesn't work. This is not at all surprising
-since the eventual call to the callback sub is not exectuted within
-the context that C</pattern> appeared in, but there's a test for it
-anyway.
+This will always die, see L<re::engine::Plugin/comp> for why.
 
-The other eval tests are just copies of this one made because the
-interpreter can only die so many times per process.
+This can be made to live regardless of C<eval> by adding C<| G_EVAL>
+to C<call_sv()> in C<Plugin_comp>.
 
 =cut
 
 use strict;
 
-use Test::More skip_all => 'TODO: make this work';
-#use Test::More tests => 1;
+use Test::More skip_all => 'Always dies';
 
 use re::engine::Plugin (
     comp => sub { die "died at comp time" },
-    exec => sub { 1 },
 );
 
-eval { /noes/ };
+eval { "str" ~~ /noes/ };
 
 TODO: {
     local $TODO = 'passing tests for known bug with how we handle eval';