Yet Another CPAN Grep

App-SpamcupNG ( A/AR/ARFREITAS/App-SpamcupNG-0.017.tar.gz, ARFREITAS, 2023; MetaCPAN )

App-SpamcupNG/t/find_errors.t ( view source; MetaCPAN )

der: 64446486 / cebd6f7e464abe28f4afffb9d',
    'get the expected "load SPAM header" error'
);
isnt( $errors_ref->[0]->is_fatal(), 1, 'Error is not fatal' );

note('Mailhost problem');
$errors_r

isnt( $errors_ref->[0]->is_fatal(), 1, 'Error is not fatal' );
is(
    $errors_ref->[1]->message(),
    'No source IP address found, cannot proceed.',
    'Got the second expected error'
);
isnt

App-SpamcupNG ( A/AR/ARFREITAS/App-SpamcupNG-0.017.tar.gz, ARFREITAS, 2023; MetaCPAN )

App-SpamcupNG/xt/pod-coverage.t ( view source; MetaCPAN )

use Test::More;
use lib 'inc';
use Devel::CheckOS qw(os_isnt);

eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage"
  if $@;

my

@all_modules;

foreach ( all_modules() ) {

    push( @all_modules, $_ )
      unless ( ( os_isnt('UNIX') ) and ( $_ eq 'Siebel::Srvrmgr::OS::Unix' ) );

}

plan tests => scalar(@all_modules)