Order the test subdirectories

[perl/modules/re-engine-Plugin.git] / t / 20-methods / pattern / modify.t

diff --git a/t/20-methods/pattern/modify.t b/t/20-methods/pattern/modify.t
new file mode 100644 (file)
index 0000000..f5eb45e
--- /dev/null
+++ b/t/20-methods/pattern/modify.t
@@ -0,0 +1,18 @@
+use strict;
+use Test::More tests => 1;
+use re::engine::Plugin (
+    exec => sub {
+        my ($re, $str) = @_;
+        my $pattern = $re->pattern;
+
+        $$pattern = "eek";
+
+        return 1;
+    },
+);
+
+my $sv = "ook";
+if ("ook" =~ \$sv) {
+    is($sv, "eek");
+}
+