use strict;
use warnings;
use blib;
use Carp qw(cluck);
use Test::More tests => 5;
use_ok('Mail::Karmasphere::Client');
use_ok('Mail::Karmasphere::Query');
use_ok('Mail::Karmasphere::Response');
local $SIG{__WARN__} = sub { cluck @_; };
my $DEBUG = 1 if $ENV{MKS_DEBUG_TESTS};
my $client = new Mail::Karmasphere::Client(
PeerHost => $ENV{KARMA_SERVER},
Debug => $DEBUG,
);
# Send two small UDP queries
for (0..2) {
$client->send(new Mail::Karmasphere::Query());
}
# Send one large TCP query
my $query = new Mail::Karmasphere::Query();
for (0..100) {
$query->feed("test.nonexistent$_");
}
my $response = $client->ask($query);
ok(defined $response, "Got a response to the TCP query");
# Receive a UDP query
$response = $client->recv();
ok(defined $response, "Got a response to an old UDP query");