1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/env perl
use 5.14.1;
use warnings;
use utf8;
use open qw/:std :utf8/;
use Test::More;
use Twitter::API;
my $client = Twitter::API->new_with_traits(
traits => [ qw/ApiMethods DecodeHtmlEntities/ ],
consumer_key => $ENV{CONSUMER_KEY},
consumer_secret => $ENV{CONSUMER_SECRET},
access_token => $ENV{ACCESS_TOKEN},
access_token_secret => $ENV{ACCESS_TOKEN_SECRET},
);
my $r = $client->show_status(801814387723935744);
diag $$r{text};
is $$r{text}, q{Test DecodeHtmlEntities trait. < & > ⚠️ 🏉 'single' "double"},
'has no encoded HTML entities';
done_testing;
|
