use strict;
use warnings;
use Test::More tests => 5;
use lib 't/inc';
use fatalwarnings;
use Number::Phone;
{
package Number::Phone::UK::SubClass;
use base 'Number::Phone::UK';
#sub new { bless {}, shift }
}
is(Number::Phone->new('+1 268 480 4000')->country, 'AG', 'Basic country() check for NANP::AG');
is(Number::Phone->new('+44 142422 0000')->country, 'UK', 'Basic country() check for UK');
is(Number::Phone::UK->new('+44 142422 0000')->country, 'UK', 'Basic country() check for UK');
my $num = Number::Phone::UK::SubClass->new('+44 142422 0000');
# Because we really want to test the base implementation in Number::Phone...
is $num->can('country'), \&Number::Phone::country, 'UK does not override ->country';
# The real aim of this test file
is($num->country, 'UK', 'A subclass of UK, but still UK');