The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More tests => 101;

use_ok('Number::Phone::JP', 'pager');

my $tel = Number::Phone::JP->new;
ok($tel->set_number('020 46012345')->is_valid_number, 'checking for 020 46012345');
ok($tel->set_number('020 46112345')->is_valid_number, 'checking for 020 46112345');
ok($tel->set_number('020 46212345')->is_valid_number, 'checking for 020 46212345');
ok($tel->set_number('020 46312345')->is_valid_number, 'checking for 020 46312345');
ok($tel->set_number('020 46412345')->is_valid_number, 'checking for 020 46412345');
ok($tel->set_number('020 46512345')->is_valid_number, 'checking for 020 46512345');
ok($tel->set_number('020 46612345')->is_valid_number, 'checking for 020 46612345');
ok($tel->set_number('020 46712345')->is_valid_number, 'checking for 020 46712345');
ok($tel->set_number('020 46812345')->is_valid_number, 'checking for 020 46812345');
ok($tel->set_number('020 46912345')->is_valid_number, 'checking for 020 46912345');
ok($tel->set_number('020 49212345')->is_valid_number, 'checking for 020 49212345');
ok($tel->set_number('020 49912345')->is_valid_number, 'checking for 020 49912345');
ok(!$tel->set_number('020 40012345')->is_valid_number, 'checking for 020 40012345');
ok(!$tel->set_number('020 40112345')->is_valid_number, 'checking for 020 40112345');
ok(!$tel->set_number('020 40212345')->is_valid_number, 'checking for 020 40212345');
ok(!$tel->set_number('020 40312345')->is_valid_number, 'checking for 020 40312345');
ok(!$tel->set_number('020 40412345')->is_valid_number, 'checking for 020 40412345');
ok(!$tel->set_number('020 40512345')->is_valid_number, 'checking for 020 40512345');
ok(!$tel->set_number('020 40612345')->is_valid_number, 'checking for 020 40612345');
ok(!$tel->set_number('020 40712345')->is_valid_number, 'checking for 020 40712345');
ok(!$tel->set_number('020 40812345')->is_valid_number, 'checking for 020 40812345');
ok(!$tel->set_number('020 40912345')->is_valid_number, 'checking for 020 40912345');
ok(!$tel->set_number('020 41012345')->is_valid_number, 'checking for 020 41012345');
ok(!$tel->set_number('020 41112345')->is_valid_number, 'checking for 020 41112345');
ok(!$tel->set_number('020 41212345')->is_valid_number, 'checking for 020 41212345');
ok(!$tel->set_number('020 41312345')->is_valid_number, 'checking for 020 41312345');
ok(!$tel->set_number('020 41412345')->is_valid_number, 'checking for 020 41412345');
ok(!$tel->set_number('020 41512345')->is_valid_number, 'checking for 020 41512345');
ok(!$tel->set_number('020 41612345')->is_valid_number, 'checking for 020 41612345');
ok(!$tel->set_number('020 41712345')->is_valid_number, 'checking for 020 41712345');
ok(!$tel->set_number('020 41812345')->is_valid_number, 'checking for 020 41812345');
ok(!$tel->set_number('020 41912345')->is_valid_number, 'checking for 020 41912345');
ok(!$tel->set_number('020 42012345')->is_valid_number, 'checking for 020 42012345');
ok(!$tel->set_number('020 42112345')->is_valid_number, 'checking for 020 42112345');
ok(!$tel->set_number('020 42212345')->is_valid_number, 'checking for 020 42212345');
ok(!$tel->set_number('020 42312345')->is_valid_number, 'checking for 020 42312345');
ok(!$tel->set_number('020 42412345')->is_valid_number, 'checking for 020 42412345');
ok(!$tel->set_number('020 42512345')->is_valid_number, 'checking for 020 42512345');
ok(!$tel->set_number('020 42612345')->is_valid_number, 'checking for 020 42612345');
ok(!$tel->set_number('020 42712345')->is_valid_number, 'checking for 020 42712345');
ok(!$tel->set_number('020 42812345')->is_valid_number, 'checking for 020 42812345');
ok(!$tel->set_number('020 42912345')->is_valid_number, 'checking for 020 42912345');
ok(!$tel->set_number('020 43012345')->is_valid_number, 'checking for 020 43012345');
ok(!$tel->set_number('020 43112345')->is_valid_number, 'checking for 020 43112345');
ok(!$tel->set_number('020 43212345')->is_valid_number, 'checking for 020 43212345');
ok(!$tel->set_number('020 43312345')->is_valid_number, 'checking for 020 43312345');
ok(!$tel->set_number('020 43412345')->is_valid_number, 'checking for 020 43412345');
ok(!$tel->set_number('020 43512345')->is_valid_number, 'checking for 020 43512345');
ok(!$tel->set_number('020 43612345')->is_valid_number, 'checking for 020 43612345');
ok(!$tel->set_number('020 43712345')->is_valid_number, 'checking for 020 43712345');
ok(!$tel->set_number('020 43812345')->is_valid_number, 'checking for 020 43812345');
ok(!$tel->set_number('020 43912345')->is_valid_number, 'checking for 020 43912345');
ok(!$tel->set_number('020 44012345')->is_valid_number, 'checking for 020 44012345');
ok(!$tel->set_number('020 44112345')->is_valid_number, 'checking for 020 44112345');
ok(!$tel->set_number('020 44212345')->is_valid_number, 'checking for 020 44212345');
ok(!$tel->set_number('020 44312345')->is_valid_number, 'checking for 020 44312345');
ok(!$tel->set_number('020 44412345')->is_valid_number, 'checking for 020 44412345');
ok(!$tel->set_number('020 44512345')->is_valid_number, 'checking for 020 44512345');
ok(!$tel->set_number('020 44612345')->is_valid_number, 'checking for 020 44612345');
ok(!$tel->set_number('020 44712345')->is_valid_number, 'checking for 020 44712345');
ok(!$tel->set_number('020 44812345')->is_valid_number, 'checking for 020 44812345');
ok(!$tel->set_number('020 44912345')->is_valid_number, 'checking for 020 44912345');
ok(!$tel->set_number('020 45012345')->is_valid_number, 'checking for 020 45012345');
ok(!$tel->set_number('020 45112345')->is_valid_number, 'checking for 020 45112345');
ok(!$tel->set_number('020 45212345')->is_valid_number, 'checking for 020 45212345');
ok(!$tel->set_number('020 45312345')->is_valid_number, 'checking for 020 45312345');
ok(!$tel->set_number('020 45412345')->is_valid_number, 'checking for 020 45412345');
ok(!$tel->set_number('020 45512345')->is_valid_number, 'checking for 020 45512345');
ok(!$tel->set_number('020 45612345')->is_valid_number, 'checking for 020 45612345');
ok(!$tel->set_number('020 45712345')->is_valid_number, 'checking for 020 45712345');
ok(!$tel->set_number('020 45812345')->is_valid_number, 'checking for 020 45812345');
ok(!$tel->set_number('020 45912345')->is_valid_number, 'checking for 020 45912345');
ok(!$tel->set_number('020 47012345')->is_valid_number, 'checking for 020 47012345');
ok(!$tel->set_number('020 47112345')->is_valid_number, 'checking for 020 47112345');
ok(!$tel->set_number('020 47212345')->is_valid_number, 'checking for 020 47212345');
ok(!$tel->set_number('020 47312345')->is_valid_number, 'checking for 020 47312345');
ok(!$tel->set_number('020 47412345')->is_valid_number, 'checking for 020 47412345');
ok(!$tel->set_number('020 47512345')->is_valid_number, 'checking for 020 47512345');
ok(!$tel->set_number('020 47612345')->is_valid_number, 'checking for 020 47612345');
ok(!$tel->set_number('020 47712345')->is_valid_number, 'checking for 020 47712345');
ok(!$tel->set_number('020 47812345')->is_valid_number, 'checking for 020 47812345');
ok(!$tel->set_number('020 47912345')->is_valid_number, 'checking for 020 47912345');
ok(!$tel->set_number('020 48012345')->is_valid_number, 'checking for 020 48012345');
ok(!$tel->set_number('020 48112345')->is_valid_number, 'checking for 020 48112345');
ok(!$tel->set_number('020 48212345')->is_valid_number, 'checking for 020 48212345');
ok(!$tel->set_number('020 48312345')->is_valid_number, 'checking for 020 48312345');
ok(!$tel->set_number('020 48412345')->is_valid_number, 'checking for 020 48412345');
ok(!$tel->set_number('020 48512345')->is_valid_number, 'checking for 020 48512345');
ok(!$tel->set_number('020 48612345')->is_valid_number, 'checking for 020 48612345');
ok(!$tel->set_number('020 48712345')->is_valid_number, 'checking for 020 48712345');
ok(!$tel->set_number('020 48812345')->is_valid_number, 'checking for 020 48812345');
ok(!$tel->set_number('020 48912345')->is_valid_number, 'checking for 020 48912345');
ok(!$tel->set_number('020 49012345')->is_valid_number, 'checking for 020 49012345');
ok(!$tel->set_number('020 49112345')->is_valid_number, 'checking for 020 49112345');
ok(!$tel->set_number('020 49312345')->is_valid_number, 'checking for 020 49312345');
ok(!$tel->set_number('020 49412345')->is_valid_number, 'checking for 020 49412345');
ok(!$tel->set_number('020 49512345')->is_valid_number, 'checking for 020 49512345');
ok(!$tel->set_number('020 49612345')->is_valid_number, 'checking for 020 49612345');
ok(!$tel->set_number('020 49712345')->is_valid_number, 'checking for 020 49712345');
ok(!$tel->set_number('020 49812345')->is_valid_number, 'checking for 020 49812345');