t/named_buff/EXISTS.t

   1 use strict;
   2 use Test::More tests => 6;
   3
   4 use re::engine::Plugin (
   5     exec => sub {
   6         my $re = shift;
   7
   8         $re->stash( [
   9             { key => "boob", flags => 0, ret => 1 },
  10             { key => "ies",  flags => 1, ret => 0 },
  11         ] );
  12
  13         $re->named_captures(
  14             EXISTS => sub {
  15                 my ($re, $key, $flags) = @_;
  16                 my $hv = shift @{ $re->stash };
  17
  18                 is($key, $hv->{key}, "key == $key");
  19                 is($flags, $hv->{flags}, "flags == $flags");
  20                 return $hv->{ret};
  21             },
  22         );
  23
  24         1;
  25     },
  26 );
  27
  28 "a" =~ /a/;
  29 ok(exists $+{boob});
  30 ok(!exists $-{ies});;
  31