]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/num_buff/LENGTH.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / num_buff / LENGTH.t
diff --git a/t/num_buff/LENGTH.t b/t/num_buff/LENGTH.t
deleted file mode 100644 (file)
index 957b39e..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-use strict;
-use Test::More $] < 5.011 ? (tests => 7) : (skip_all => 'Not working in blead');
-
-use re::engine::Plugin (
-    exec => sub {
-        my $re = shift;
-
-        $re->stash( [
-            10, 10,
-            20, 20,
-            30, 30,
-            40,
-        ]);
-
-        $re->num_captures(
-            LENGTH => sub {
-                my ($re, $paren) = @_;
-
-                shift @{ $re->stash };
-            },
-        );
-
-        1;
-    },
-);
-
-"a" =~ /a/;
-
-is(length $`, 10);
-is(length ${^PREMATCH}, 10);
-is(length $', 20);
-is(length ${^POSTMATCH}, 20);
-is(length $&, 30);
-is(length ${^MATCH}, 30);
-is(length $1, 40);