my $host = "no.such.host";
my $conn;
eval { $conn = new ZOOM::Connection($host, 0) };
ok($@ && $@->isa("ZOOM::Exception") &&
$@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host,
my $host = "no.such.host";
my $conn;
eval { $conn = new ZOOM::Connection($host, 0) };
ok($@ && $@->isa("ZOOM::Exception") &&
$@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host,