#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use t::lib::Functions;
my $mcpan = mcpan();
isa_ok( $mcpan, 'MetaCPAN::API::Tiny' );
can_ok( $mcpan, 'author' );
# missing input
like(
exception { $mcpan->author },
qr/^Please provide an author PAUSEID/,
'Missing any information',
);
my $result = $mcpan->author('DOY');
ok( $result, 'Got result' );