use strict;
use Test::Simple tests => 4;
use Log::Dispatch;
use Log::Dispatch::Jabber;
my $server = "obelisk.net";
my $port = 5222;
my $username = "test-netjabber";
my $password = "test";
my $resource = $$.time.qx(hostname);
eval {
my $logger = Log::Dispatch->new();
ok($logger);
my $jabber = Log::Dispatch::Jabber->new(name=>"jabber",
min_level=>"info",
login => {
hostname => $server,
port => $port,
username => $username,
password => $password,
resource => $resource,
},
to => ["$username\@$server"],
debuglevel => 1,
);
ok($jabber);
ok($logger->add($jabber));
ok($jabber->log_message(message=>"Hello world",level=>"debug"));
};