]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/methods/stash.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / methods / stash.t
diff --git a/t/methods/stash.t b/t/methods/stash.t
deleted file mode 100644 (file)
index 9083263..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-=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/;