t/named_buff/NEXTKEY.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         my @keys = ("a" .. "f");
   9
  10         $re->named_captures(
  11             FIRSTKEY => sub { shift @keys },
  12             NEXTKEY  => sub {
  13                 my ($re, $lastkey, $flag) = @_;
  14                 my $key = shift @keys;
  15
  16                 is(chr(ord($key)-1), $lastkey, "$lastkey value makes sense")
  17                     if defined $key;
  18
  19                 return $key;
  20             },
  21         );
  22
  23         1;
  24     },
  25 );
  26
  27 "a" =~ /a/;
  28 my $key = join "|", keys %+;
  29 is($key, "a|b|c|d|e|f", "key row correct");