]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blobdiff - t/20-methods/str/modify.t
Order the test subdirectories
[perl/modules/re-engine-Plugin.git] / t / 20-methods / str / modify.t
diff --git a/t/20-methods/str/modify.t b/t/20-methods/str/modify.t
new file mode 100644 (file)
index 0000000..0d4536f
--- /dev/null
@@ -0,0 +1,16 @@
+use strict;
+use Test::More tests => 1;
+use re::engine::Plugin (
+    exec => sub {
+        my ($re, $str) = @_;
+
+        $$str = "eek";
+
+        return 1;
+    },
+);
+
+my $sv = "ook";
+if (\$sv =~ /pattern/) {
+    is($sv, "eek");
+}