t/lib/KohaTest/SMS/send_sms.pm

   1 package KohaTest::SMS::send_sms;
   2 use base qw( KohaTest::SMS );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::SMS;
  10 sub testing_class { 'C4::SMS' };
  11
  12
  13 sub send_a_message : Test( 2 ) {
  14     my $self = shift;
  15
  16     my $success = C4::SMS->send_sms( { destination => '+1 212-555-1111',
  17                                        message     => 'This is the message',
  18                                        driver      => 'Test' } );
  19
  20     ok( $success, "send_sms returned a true: $success" );
  21
  22 }
  23
  24
  25 1;