view release on metacpan or  search on metacpan

t/client/basic.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 4;
use Test::Fatal;
use AnyEvent;

BEGIN { use_ok('AnyEvent::eris::Client') }

subtest 'New without MessageHandler' => sub {
    no strict 'refs';
    no warnings qw<redefine once>;
    local *{'AE::log'} = sub ($$;@) {
        my ( $type, $error ) = @_;
        ::is( $type, 'fatal', 'Fatal error' );