Order the test subdirectories

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

diff --git a/t/40-ctl/eval-comp.t b/t/40-ctl/eval-comp.t
new file mode 100644 (file)
index 0000000..104f111
--- /dev/null
+++ b/t/40-ctl/eval-comp.t
@@ -0,0 +1,23 @@
+=pod
+
+This will always die, see L<re::engine::Plugin/comp> for why.
+
+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 => 'Always dies';
+
+use re::engine::Plugin (
+    comp => sub { die "died at comp time" },
+);
+
+eval { "str" ~~ /noes/ };
+
+TODO: {
+    local $TODO = 'passing tests for known bug with how we handle eval';
+    pass;
+}