]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/eval-exec.t
Clean the MANIFEST
[perl/modules/re-engine-Plugin.git] / t / eval-exec.t
1 =pod
2
3 Copy of F<t/eval-comp.t> that tests another callback sub.
4
5 =cut
6
7 use strict;
8
9 use Test::More tests => 1;
10
11 use re::engine::Plugin (
12     exec => sub { die "died at exec time" },
13 );
14
15 eval { 'oh' =~ /noes/ };
16 ok index($@ => 'at exec') => 'die in exec works';
17
18