view release on metacpan or  search on metacpan

t/above-0xFF.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use v5.12.0;
use warnings;
 
use Test::More tests => 7;
use Email::Simple;
 
sub get_warning(&) {
  my $message;
  local $SIG{__WARN__} = sub { $message = $_[0] unless $message };
  $_[0]->();
  return $message;
}
 
like get_warning { Email::Simple->new("\N{U+100}: \N{U+100}") }, qr/^Message with wide characters at $0 /, 'Email::Simple->new warns with characters above 0xFF';
 
like get_warning { Email::Simple->create(body => "\N{U+100}") }, qr/^Body with wide characters at $0 /, 'Email::Simple->create warns with characters above 0xFF in body';