use strict;
use warnings;
use lib 't/lib';
use Test::More 0.88;
use Acme::CPANAuthors;

{
  my @found = Acme::CPANAuthors->look_for('ISHIGAKI');
  ok( @found, 'found by ID' );
  ok(( grep { $_->{category} eq 'Test' } @found ), 'found Test ID');
}

{
  my @found = Acme::CPANAuthors->look_for('ishi');
  ok( @found, 'found by part of an ID' );
}

{
  my @found = Acme::CPANAuthors->look_for('Kenichi Ishigaki');
  ok( @found, 'found by full name' );
}

{
  my @found = Acme::CPANAuthors->look_for('Kenichi');
  ok( @found, 'found by part of a name' );
}

{
  my @found = Acme::CPANAuthors->look_for(qr/Ken/);
  ok( @found, 'found by regexp' );
}

done_testing;