#!/usr/bin/perl
use strict;
use Test::More tests => 1;
# Borrowed from SMS::Send::AU::Vodafone
sub dies_like {
my ($code, $regexp) = (shift, shift);
eval { &$code() };
like( $@, $regexp, $_[0] || "Dies as expected with message like $regexp" );
}
my $sender = SMS::Send->new( 'RedSMS',
_accountid => 'CI00000000',
_email => 'some@example.com',
_password => 'foobarbaz'
);
dies_like(
sub { $sender->send_sms( text => 'Test message', to => '+(61) 444 444 444' ); },
qr/2001 The Red Oxygen database does not recognise your email address/
);