#!/usr/bin/perl
# Try to make sure the website is actually there
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More;
use SMS::Send ();
my $login = $ENV{SMS_LOGIN};
my $password = $ENV{SMS_PASSWORD};
my $to = $ENV{SMS_TO};
my $text = $ENV{SMS_TEXT} || "Testing SMS::Send::AU::MyVodafone";
if ( $login and $password and $to ) {
plan( tests => 2 );
} else {
plan( skip_all => "Set environment variables SMS_LOGIN, SMS_PASSWORD and SMS_TO to run a live test" );
}
sub dies_like {
my ($code, $regexp) = (shift, shift);
eval { &$code() };
like( $@, $regexp, $_[0] || "Dies as expected with message like $regexp" );
}
#####################################################################
# Testing an actual working login
# Create a new sender
my $sender = SMS::Send->new( 'AU::MyVodafone',
_login => $login,
_password => $password,
);
isa_ok( $sender, 'SMS::Send' );
# Send a real message
my $rv = $sender->send_sms(
text => $text,
to => $to,
);
ok( $rv, '->send_sms sends a live message ok' );