view release on metacpan or  search on metacpan

t/57_hang_interrupt.t  view on Meta::CPAN

    author_fullname => "John Q. Public",
);
    
my @cases = (
    {
        label => "t-Pass",
        pretty_id => "JOHNQP/Bogus-Module-1.23.tar.gz",
        name => "t-Pass",
        version => 1.23,
        grade => "pass",
        phase => "test",
        command => "$make test",
        will_send => 1,
    },
    {
        label => "t-Fail",
        pretty_id => "JOHNQP/Bogus-Module-1.23.tar.gz",
        name => "t-Fail",
        version => 1.23,
        grade => "fail",
        phase => "test",
        command => "$make test",
        will_send => 1,
    },
    {
        label => "PL-Hang",
        pretty_id => "JOHNQP/Bogus-Module-1.23.tar.gz",
        name => "PL-Hang",
        version => 1.23,
        grade => "discard",
        phase => "PL",
        command => "$perl Makefile.PL",
        will_send => 0,
    },
    {
        label => "t-Hang",
        pretty_id => "JOHNQP/Bogus-Module-1.23.tar.gz",
        name => "t-Hang",
        version => 1.23,
        grade => "discard",
        phase => "test",
        command => "$make test",
        will_send => 0,
    },
);

plan tests => 1 + @cases * (test_fake_config_plan() + test_dispatch_plan());

#--------------------------------------------------------------------------#
# tests
#--------------------------------------------------------------------------#

require_ok('CPAN::Reporter');

# test send_skipfile
for my $case ( @cases ) {
    $case->{dist} = MockCPANDist->new(
        pretty_id => $case->{pretty_id},
        %mock_dist_options,
    );
    test_fake_config( command_timeout => 3 );
    test_dispatch( 
        $case, 
        will_send => $case->{will_send},
    );
}