3 Test the C<stash> method
8 use Test::More tests => 5;
10 use re::engine::Plugin (
14 my $sv = [ qw< a o e u > ];
21 my $stash = $re->stash;
22 my $ret = $re->stash( $stash );
23 ok(!$ret, "stash returns no value on assignment");
24 my %h = qw< 0 a 1 o 2 e 3 u >;
26 is($h{$_}, $stash->[$_]);