Merge pull request #1 from sonntagd/bug/cm_telecom_api_change

cm telecom api change

Author: veronikaneumann

t/02-sms.t

@@ -9,7 +9,7 @@ plan tests => 4;
 
 subtest no_product_token => sub {
     plan tests => 2;
-    
+
     my $sms = eval { SMS::API::CMTelecom->new() };
     like $@, qr'^SMS::API::CMTelecom->new requires product_token parameter', 'correct error message';
     ok !$sms, 'creating SMS object failed';
@@ -22,7 +22,7 @@ subtest simple_object_creation => sub {
     );
 
     is ref $sms, 'SMS::API::CMTelecom', 'SMS object created';
-    
+
     subtest no_sender_given => sub {
         plan tests => 2;
 
@@ -118,5 +118,5 @@ subtest wrong_product_token => sub {
         reference  => 293854,
     );
     is $res, undef, 'undef returned';
-    is $sms->error_message, 'No account found for the given authentication', 'correct error message';
+    is $sms->error_message, 'No authentication method found.', 'correct error message';
 };

t/03-sms-real.t

@@ -30,7 +30,7 @@ subtest simple_message => sub {
     );
 
     is ref $sms, 'SMS::API::CMTelecom', 'SMS object created';
-    
+
     my $res = $sms->send(
         message    => 'This is a test of the Perl module SMS::API::CMTelecom :-)',
         recipients => $phone_number,
@@ -40,11 +40,12 @@ subtest simple_message => sub {
     is_deeply $res, {
             messages => [
                 {
-                    to             => clean_number($phone_number),
-                    parts          => 1,
-                    reference      => undef,
-                    messageDetails => undef,
-                    status         => 'Accepted',
+                    to               => clean_number($phone_number),
+                    parts            => 1,
+                    reference        => undef,
+                    messageDetails   => undef,
+                    status           => 'Accepted',
+                    messageErrorCode => 0,
                 },
             ],
         }, 'correct status information';
@@ -61,7 +62,7 @@ subtest simple_message_with_reference => sub {
     is ref $sms, 'SMS::API::CMTelecom', 'SMS object created';
     my @chars = (0..9, 'A'..'Z', 'a'..'z');
     my $reference = join "" => map { $chars[int rand @chars] } 1..(1+int(rand 32));
-    
+
     my $res = $sms->send(
         message    => 'This is a test of the Perl module SMS::API::CMTelecom :-)',
         recipients => $phone_number,
@@ -72,11 +73,12 @@ subtest simple_message_with_reference => sub {
     is_deeply $res, {
             messages => [
                 {
-                    to             => clean_number($phone_number),
-                    parts          => 1,
-                    reference      => $reference,
-                    messageDetails => undef,
-                    status         => 'Accepted',
+                    to               => clean_number($phone_number),
+                    parts            => 1,
+                    reference        => $reference,
+                    messageDetails   => undef,
+                    status           => 'Accepted',
+                    messageErrorCode => 0,
                 },
             ],
         }, "correct status information with included reference ($reference)";
@@ -87,4 +89,4 @@ sub clean_number {
     my $num = shift;
     $num =~ s/\D//g;
     return $num;
-}
+}

t/05-sms-send-send.t

@@ -41,9 +41,9 @@ subtest send_real => sub {
         text       => 'You message may use more than 160 chars.',
         to         => $ENV{SMS_CMTELECOM_PHONE_NUMBER},
         _from      => $ENV{SMS_CMTELECOM_PHONE_NUMBER},
-        _reference => 'SMS::Send::CMTelecom test',
+        reference  => 'SMS::Send::CMTelecom test',
     );
 
     is $sent, 1, 'message successfully sent';
 
-};
+};