blob: 27cfe1a9c6b05f483fedd99ba7d4195a34710411 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!./perl
use strict;
use warnings;
$| = 1;
BEGIN {
chdir 't' if -d 't';
@INC = ('../lib','.','../ext/re');
require './test.pl';
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet", 2)
unless eval 'require "unicore/Heavy.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)");
|
