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');