121495Sjmacd#!./perl
221495Sjmacduse strict;
321495Sjmacduse warnings;
421495Sjmacd
521495Sjmacd$| = 1;
621495Sjmacd
721495Sjmacd
821495SjmacdBEGIN {
921495Sjmacd    chdir 't' if -d 't';
1021495Sjmacd    require './test.pl';
1121495Sjmacd    set_up_inc( '../lib', '.', '../ext/re' );
1221495Sjmacd}
1321495Sjmacd    if (is_miniperl()) {
1421495Sjmacd        skip_all_if_miniperl("Unicode tables not built yet", 2)
1521495Sjmacd            unless eval 'require "unicore/UCD.pl"';
1621495Sjmacd    }
1721495Sjmacd
1821495Sjmacdplan tests => 3;
1921495Sjmacduse strict;
2021495Sjmacd
2121495Sjmacdmy(@body) = (
2221495Sjmacd  "<mailto:xxxx.xxxx\@outlook.com>",
2321495Sjmacd  "A\x{B9}ker\x{E8}eva xxxx.xxxx\@outlook.com \x{201D}",
2421495Sjmacd);
2521495Sjmacd
2621495Sjmacdfor (@body) {
2721495Sjmacd  s{ <? (?<!mailto:) \b ( [a-z0-9.]+ \@ \S+ ) \b
2842660Smarkm     (?: > | \s{1,10} (?!phone) [a-z]{2,11} : ) }{ }xgi;
2942660Smarkm  my $got= $1;
3021495Sjmacd  is( $got, '.xxxx@outlook.com' );
3142660Smarkm}
3242660Smarkmok("got to the end without dieing (note without DEBUGGING passing this test means nothing)");
3321495Sjmacd
3421495Sjmacd