view release on metacpan or  search on metacpan

t/40-impl.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';
use Numeros;

use Test::More tests => 5 + 1;
use Test::NoWarnings;

my @numeros = @Numeros::intl;

use Number::Phone;

sub impl_test
{
    my $class = shift;
    my $pkg = (caller)[0];
    subtest "Package $pkg => $class", sub {
        plan tests => 3;
        my $num = Number::Phone->new($numeros[0]);
        isa_ok($num, 'Number::Phone::FR');
        isa_ok($num, $class);
        is(ref $num, $class, $class);
    };
}

impl_test 'Number::Phone::FR';

{
    package Foo;
    use Number::Phone::FR ':full';

    main::impl_test 'Number::Phone::FR::Full';
}

impl_test 'Number::Phone::FR';

{
    package Bar;
    use Number::Phone::FR ':simple';

    main::impl_test 'Number::Phone::FR::Simple';
}

impl_test 'Number::Phone::FR';