use strict;
use Test::More tests => 5;

use Email::Address::JP::Mobile;

subtest "non mobile" => sub {
    my $carrier = Email::Address::JP::Mobile::NonMobile->new;
    
    ok $carrier->mime_encoding, 'mime_encoding';
    is $carrier->mime_encoding->name, 'MIME-Header-ISO_2022_JP';
    
    ok $carrier->send_encoding, 'send_encoding';
    is $carrier->send_encoding->name, 'iso-2022-jp';
    
    ok $carrier->parse_encoding, 'parse_encoding';
    is $carrier->parse_encoding->name, 'iso-2022-jp';
};

subtest "docomo" => sub {
    my $carrier = Email::Address::JP::Mobile::DoCoMo->new;
    
    ok $carrier->mime_encoding, 'mime_encoding';
    is $carrier->mime_encoding->name, 'MIME-Header-JP-Mobile-DoCoMo-SJIS';
    
    ok $carrier->send_encoding, 'send_encoding';
    is $carrier->send_encoding->name, 'x-sjis-docomo';
    
    ok $carrier->parse_encoding, 'parse_encoding';
    is $carrier->parse_encoding->name, 'iso-2022-jp';
};

subtest "kddi" => sub {
    my $carrier = Email::Address::JP::Mobile::EZweb->new;
    
    ok $carrier->mime_encoding, 'mime_encoding';
    is $carrier->mime_encoding->name, 'MIME-Header-JP-Mobile-KDDI-SJIS';
    
    ok $carrier->send_encoding, 'send_encoding';
    is $carrier->send_encoding->name, 'x-sjis-kddi-auto';
    
    ok $carrier->parse_encoding, 'parse_encoding';
    is $carrier->parse_encoding->name, 'x-iso-2022-jp-kddi-auto';
};


subtest "softbank" => sub {
    my $carrier = Email::Address::JP::Mobile::SoftBank->new;
    
    ok $carrier->mime_encoding, 'mime_encoding';
    is $carrier->mime_encoding->name, 'MIME-Header-JP-Mobile-SoftBank-UTF8';
    
    ok $carrier->send_encoding, 'send_encoding';
    is $carrier->send_encoding->name, 'x-utf8-softbank';
    
    ok $carrier->parse_encoding, 'parse_encoding';
    is $carrier->parse_encoding->name, 'iso-2022-jp';
};

subtest "willcom" => sub {
    my $carrier = Email::Address::JP::Mobile::AirH->new;
    
    ok $carrier->mime_encoding, 'mime_encoding';
    is $carrier->mime_encoding->name, 'MIME-Header-JP-Mobile-AirH-SJIS';
    
    ok $carrier->send_encoding, 'send_encoding';
    is $carrier->send_encoding->name, 'x-sjis-airh';
    
    ok $carrier->parse_encoding, 'parse_encoding';
    is $carrier->parse_encoding->name, 'x-iso-2022-jp-airh';
};