use strict;
use warnings;

use Test::More;
use Test::NoWarnings;

my @impl = map { "Number::Phone::FR$_" } ('', qw(::Simple ::Full));

plan tests => scalar @impl + 1;

foreach my $impl (@impl) {
    subtest $impl, sub {
        plan tests => 3;
        eval "require $impl; 1";
        ok($impl->isa('Number::Phone::FR'), 'isa Number::Phone::FR');
        is($impl->country, 'FR', 'Country code (letters)');
        is($impl->country_code, '33', 'Country code (number)');
    };
}