add test for rt122747

1 files changed, 29 insertions, 0 deletions

diff --git a/t/re/rt122747.t b/t/re/rt122747.t
new file mode 100644
index 0000000000..b839edd899
--- /dev/null
+++ b/t/re/rt122747.t
@@ -0,0 +1,29 @@
+#!./perl
+use strict;
+use warnings;
+
+$| = 1;
+
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = ('../lib','.','../ext/re');
+    require './test.pl';
+}
+
+plan tests => 3;
+use strict;
+
+my(@body) = (
+  "<mailto:xxxx.xxxx\@outlook.com>",
+  "A\x{B9}ker\x{E8}eva xxxx.xxxx\@outlook.com \x{201D}",
+);
+
+for (@body) {
+  s{ <? (?<!mailto:) \b ( [a-z0-9.]+ \@ \S+ ) \b
+     (?: > | \s{1,10} (?!phone) [a-z]{2,11} : ) }{ }xgi;
+  my $got= $1;
+  is( $got, '.xxxx@outlook.com' );
+}
+ok("got to the end without dieing (note without DEBUGGING passing this test means nothing)");
+