view release on metacpan or  search on metacpan

t/003_send_MediaUrl.t  view on Meta::CPAN

# -*- perl -*-
use strict;
use warnings;
use DateTime;
use Data::Dumper qw{Dumper};
use Test::More tests => 4;

BEGIN { use_ok( 'SMS::Send::NANP::Twilio' ); }

my $to                  = $ENV{'MMS_TEST_PHONE_NUMBER'};
my $MessagingServiceSid = $ENV{'MessagingServiceSid'};
my $AccountSid          = $ENV{'AccountSid'};
my $AuthToken           = $ENV{'AuthToken'};

SKIP: {
  skip 'ENV{MMS_TEST_PHONE_NUMBER} not configured', 3 unless $to;

  my $service = SMS::Send::NANP::Twilio->new(
                                             MessagingServiceSid => $MessagingServiceSid,
                                             AccountSid          => $AccountSid,
                                             AuthToken           => $AuthToken,
                                            );

  isa_ok ($service, 'SMS::Send::NANP::Twilio');
  isa_ok ($service, 'SMS::Send::Driver');

  my $text    = sprintf("Message: Test 003: Date: %s", DateTime->now);
  my $url     = 'http://maps.google.com/mapfiles/kml/shapes/post_office.png';
  my $status  = $service->send_sms(to => $to, text => $text, MediaUrl => $url);
  diag(Dumper($service->{"__data"}));
  ok($status, 'status');
}