use strict;
use warnings;
use utf8;
use HTML::Pictogram::MobileJp;
use Test::MobileAgent qw/:all/;
use Test::More;
use HTTP::MobileAgent;

xxx('docomo', '[emoji:1]', '');
xxx('ezweb', '[emoji:1]', '<img localsrc="44" />');
xxx('softbank', '[emoji:1]', '&#xE04A;');
xxx('nonmobile', '[emoji:1]', '[emoji:1]');

xxx('docomo', '[emoji:1001]', '&#xE70C;'); # 拡張絵文字
xxx('softbank', '[emoji:93]', '［メガネ］'); # unmapped

subtest 'iphone' => sub {
    my $ma = HTTP::MobileAgent->new('Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1C28 Safari/419.3');
    is(HTML::Pictogram::MobileJp->convert($ma, '[emoji:1]'), '&#xE04A;');
};

done_testing;

sub xxx {
    my ($type, $html, $expected) = @_;
    my $ma = HTTP::MobileAgent->new(test_mobile_agent_headers($type));
    is(HTML::Pictogram::MobileJp->convert($ma, $html), $expected);
}