X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Fmethods%2Fstash.t;fp=t%2Fmethods%2Fstash.t;h=0000000000000000000000000000000000000000;hb=386630c145754930ffc3a3b0988dd0108f4394db;hp=9083263566071642d0583946bde5707f4f3efbd6;hpb=36958ebe8b4c296f858f6b5df8f629cdb341812d;p=perl%2Fmodules%2Fre-engine-Plugin.git diff --git a/t/methods/stash.t b/t/methods/stash.t deleted file mode 100644 index 9083263..0000000 --- a/t/methods/stash.t +++ /dev/null @@ -1,31 +0,0 @@ -=pod - -Test the C 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/;