Importing re-engine-Plugin-0.02.tar.gz

[perl/modules/re-engine-Plugin.git] / t / eval-comp.t

diff --git a/t/eval-comp.t b/t/eval-comp.t
index deebdd3dbc4f7be547d9a54f6df2a313fd78ad1d..104f111636d352fbd9ec3ff8dae6e662ac5a809a 100644 (file)
--- 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';