+++ /dev/null
-=pod
-
-Test the C<stash> method
-
-=cut
-
-use strict;
-use Test::More tests => 5;
-
-use re::engine::Plugin (
- comp => sub {
- my ($re) = @_;
-
- my $sv = [ qw( a o e u ) ];
-
- $re->stash( $sv );
- },
- exec => sub {
- my ($re, $str) = @_;
-
- my $stash = $re->stash;
- my $ret = $re->stash( $stash );
- ok(!$ret, "stash returns no value on assignment");
- my %h = qw( 0 a 1 o 2 e 3 u );
- for (keys %h) {
- is($h{$_}, $stash->[$_]);
- }
- }
-);
-
-"ook" =~ /eek/;