t/named_buff/DELETE.t

   1 use strict;
   2 use Test::More tests => 4;
   3
   4 use re::engine::Plugin (
   5     exec => sub {
   6         my $re = shift;
   7
   8         $re->stash( [
   9             {
  10                 key => 'one',
  11                 flags => 0,
  12             },
  13             {
  14                 key => 'two',
  15                 flags => 1,
  16             },
  17         ] );
  18
  19         $re->named_captures(
  20             DELETE => sub {
  21                 my ($re, $key, $flags) = @_;
  22                 my $hv = shift @{ $re->stash };
  23
  24                 is($key, $hv->{key}, "key eq $key");
  25                 is($flags, $hv->{flags}, "flags == $flags");
  26             },
  27         );
  28
  29         1;
  30     },
  31 );
  32
  33 "a" =~ /a/;
  34 delete $+{one};
  35 delete $-{two};
  36
  37