view release on metacpan or  search on metacpan

t/11-naughty-version.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;

use Test::More tests => 2;

use lib 't/lib';

use Acme::CPANAuthors;

local @INC = grep $_ ne '.', @INC;

our $test_loaded;
local $test_loaded = 0;

my $err = do {
 local $SIG{__WARN__} = sub {
  my $msg = join "\n", @_;
  if ($msg =~ /cabbage/) {
   die "$msg\n";
  } else {
   diag $msg;
  }
 };
 eval { Acme::CPANAuthors->new("You're_using") };
 $@;
};

is $test_loaded, 1,  'naughty module was actually loaded';
is $err,         '', 'naughty module did not make us croak';