added driver for SMS::Send

Author: sonntagd

Changes

@@ -1,5 +1,8 @@
 Revision history for SMS-API-CMTelecom
 
-0.01    Date/time
+0.02	2017-04-29
+	Added a driver for SMS::Send.
+
+0.01    2017-04-29
         First version, released on an unsuspecting world.
 

Dockerfile

@@ -4,5 +4,6 @@ RUN cpanm LWP::UserAgent
 RUN cpanm LWP::Protocol::https
 RUN cpanm JSON
 RUN cpanm Test::CheckManifest Test::Pod::Coverage Test::Pod
+RUN cpanm SMS::Send
 
 WORKDIR /app

Makefile.PL

@@ -19,6 +19,7 @@ WriteMakefile(
         'Test::CheckManifest' => 0,
         'Test::Pod::Coverage' => 0,
         'Test::Pod'           => 0,
+        'SMS::Send'           => 0,
     },
     PREREQ_PM => {
         'LWP::UserAgent'       => 0,

lib/SMS/API/CMTelecom.pm

@@ -16,7 +16,7 @@ Version 0.01
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 
 =head1 SYNOPSIS

t/03-sms-real.t

@@ -40,7 +40,7 @@ subtest simple_message => sub {
     is_deeply $res, {
             messages => [
                 {
-                    to             => $phone_number,
+                    to             => clean_number($phone_number),
                     parts          => 1,
                     reference      => undef,
                     messageDetails => undef,
@@ -72,7 +72,7 @@ subtest simple_message_with_reference => sub {
     is_deeply $res, {
             messages => [
                 {
-                    to             => $phone_number,
+                    to             => clean_number($phone_number),
                     parts          => 1,
                     reference      => $reference,
                     messageDetails => undef,
@@ -83,3 +83,8 @@ subtest simple_message_with_reference => sub {
     is $sms->error_message, undef, 'error message is empty';
 };
 
+sub clean_number {
+    my $num = shift;
+    $num =~ s/\D//g;
+    return $num;
+}