The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
# CPAN::Reporter tests
use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }

use IO::Handle;
STDERR->autoflush(1);
STDOUT->autoflush(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;