GSM/t/02_transport_mcube.t

   1 use strict;
   2 use Test::More 'no_plan';
   3
   4 # Testing the MCube support.
   5
   6 use GSM::SMS::NBS;
   7 use constant _CONFIG => '/tmp/gsmperl/GSM/t/mcube.conf';
   8 use constant _TESTGSM => '+32475567606';
   9 use constant _TESTMSG => 'Hello world from GSM::SMS';
  10 use constant _TESTIMG => '/tmp/gsmperl/GSM/examples/smartmessagingserver/media/groupgraphics/0001.gif';
  11 my $nbs = GSM::SMS::NBS->new( _CONFIG );
  12
  13 ok($nbs, 'constructor');
  14
  15 ok( $nbs->sendSMSTextMessage( _TESTGSM, _TESTMSG ) != 0, 'sending a test text message');
  16
  17 ok( $nbs->sendGroupGraphic_file( _TESTGSM, _TESTIMG ) != 0, 'sending group graphic');