use strict;
use warnings;
use Test::More;
use Test::Exception;

use_ok 'Catmandu::Importer::Modules';
require_ok 'Catmandu::Importer::Modules';

my @modules;

ok Catmandu::Importer::Modules->new->first, 'default importer';

lives_ok sub {
    @modules = @{Catmandu::Importer::Modules->new(
            inc       => ["lib"],
            namespace => "Catmandu::Fix",
            max_depth => 1,
            pattern   => qr/add_field/
        )->to_array
    };
};

ok @modules > 0, 'imported with options';
is $modules[0]->{name}, 'Catmandu::Fix::add_field', 'name';
like $modules[0]->{about}, qr/^add or change the value of a HASH key/,
    'about';

lives_ok sub {
    @modules = @{Catmandu::Importer::Modules->new(
            inc       => ["lib"],
            namespace => "Catmandu::Importer,Catmandu::Exporter",
            max_depth => 1,
            pattern   => qr/JSON/
        )->to_array
    };
};

is_deeply [map {$_->{name}} @modules],
    [qw(Catmandu::Importer::JSON Catmandu::Exporter::JSON)],
    "multiple namespaces";

done_testing;