add test for rt122747
authorYves Orton <demerphq@gmail.com>
Sun, 14 Sep 2014 16:55:12 +0000 (18:55 +0200)
committerYves Orton <demerphq@gmail.com>
Sun, 14 Sep 2014 16:55:38 +0000 (18:55 +0200)
MANIFEST
t/re/rt122747.t [new file with mode: 0644]

index 437f384..eb29a94 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -5300,6 +5300,7 @@ t/re/reg_nc_tie.t         Test the tied methods of Tie::Hash::NamedCapture
 t/re/reg_pmod.t                        See if regexp /p modifier works as expected
 t/re/reg_posixcc.t             See if posix character classes behave consistently
 t/re/re_tests                  Regular expressions for regexp.t
+t/re/rt122747.t                        Test rt122747 assert faile (requires DEBUGGING)
 t/re/rxcode.t                  See if /(?{ code })/ works
 t/re/subst_amp.t               See if $&-related substitution works
 t/re/subst.t                   See if substitution works
diff --git a/t/re/rt122747.t b/t/re/rt122747.t
new file mode 100644 (file)
index 0000000..b839edd
--- /dev/null
@@ -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)");
+