use
strict;
use
warnings;
use
Test::More;
my
$apns
= Net::APNs::Extended::Base->new(
cert
=>
'xxx'
);
for
my
$method
(
qw{
host_production
host_sandbox
is_sandbox
port
password
cert_file
cert
cert_type
key_file
key
key_type
read_timeout
write_timeout
json
}
) {
ok
$apns
->
$method
(1);
is
$apns
->
$method
, 1;
}
done_testing;