|
my $sqs = Net::Amazon::SQS::Lite->new(
access_key => "XXXXX" ,
secret_key => "YYYYY" ,
region => "ap-northeast-1" ,
);
SKIP: {
my $res ;
eval {
$res = $sqs ->list_queues;
};
skip $@, 1 if $@;
$sqs ->create_queue({ QueueName => "test_queue" });
$res = $sqs ->send_message_batch({
"SendMessageBatchRequestEntry.1.Id" => "msg1" ,
"SendMessageBatchRequestEntry.1.MessageBody" => "Hello!" ,
});
is $res ->{SendMessageBatchResult}->{SendMessageBatchResultEntry}->{MD5OfMessageBody}, "952d2c56d0485958336747bcdd98590d" ;
};
done_testing;
|