# CPAN::Reporter tests
use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
select(STDERR); $|=1;
select(STDOUT); $|=1;
use Test::More;
use t::Helper;
use t::Frontend;
#--------------------------------------------------------------------------#
# Bailout if we're on a broken dev version of Test::Harness
#--------------------------------------------------------------------------#
require Test::Harness;
if ( $Test::Harness::VERSION eq "2.99_01" ) {
warn "Detected Test::Harness 2.99_01\n";
BAIL_OUT("Your Test::Harness conflicts with CPAN::Reporter")
}
#--------------------------------------------------------------------------#
my @api = qw(
configure
grade_PL
grade_make
grade_test
record_command
test
);
my @modules = qw(
CPAN::Reporter
CPAN::Reporter::Config
CPAN::Reporter::History
);
plan tests => @api + @modules;
require_ok( $_ ) for @modules;
can_ok( 'CPAN::Reporter', $_ ) for @api;