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->[$_]);