use strict; use Test::More tests => 1 + 11; use Test::Requires qw( Number::Phone ); use_ok('Number::Phone::JP'); ok(! Number::Phone->new('+810112345678')->is_mobile, 'checking for 001 12345678'); ok(! Number::Phone->new('+810912012345678')->is_mobile, 'checking for 009120 12345678'); ok(! Number::Phone->new('+816033001234')->is_mobile, 'checking for 060 33001234'); ok(! Number::Phone->new('+81120000123')->is_mobile, 'checking for 0120 000123'); ok(! Number::Phone->new('+81112001234')->is_mobile, 'checking for 011 2001234'); ok(! Number::Phone->new('+815010001234')->is_mobile, 'checking for 050 10001234'); ok( Number::Phone->new('+818010012345')->is_mobile, 'checking for 080 10012345'); ok(! Number::Phone->new('+812046012345')->is_mobile, 'checking for 020 46012345'); ok(! Number::Phone->new('+817050112345')->is_mobile, 'checking for 070 50112345'); ok(! Number::Phone->new('+81990500123')->is_mobile, 'checking for 0990 500123'); ok(! Number::Phone->new('+81570000123')->is_mobile, 'checking for 0570 000123');