2
use Test::More tests => 3;
3
use Net::Jabber::Loudmouth;
5
my $handler = Net::Jabber::Loudmouth::MessageHandler->new(sub {});
6
isa_ok($handler, "Net::Jabber::Loudmouth::MessageHandler");
8
ok($handler->is_valid(), "handler is valid");
10
$handler->invalidate();
12
ok(!$handler->is_valid(), "handler is invalid");