#
# Copyright (c) homqyy
#
use strict;
BEGIN { use_ok('KCP'); use_ok('KCP::Test') };
#########################
isa_ok(KCP::new(1), "KCP", "isa object");
ok(
KCP::new(1) &&
KCP::new("1"),
"only a 'conv' param and is numerical"
);
{
local $@;
eval {
local $SIG{__WARN__} = sub {};
if (KCP::new("ab") ||
KCP::new("1ab") ||
KCP::new("ab1"))
{
die "error";
}
};
ok($@, "only a 'conv' param and isn't numerical");
}
{
my $user = "user";
ok(
KCP::new(1, $user) &&
KCP::new(1, \$user), "param: conv, user"
);
}
done_testing;