C4/SIP/t/00sc_status.t

   1 #!/usr/bin/perl
   2 #
   3 # sc_status: test basic connection, login, and response
   4 # to the SC Status message, which has to be sent before
   5 # anything else
   6
   7 use strict;
   8 use warnings;
   9 use FindBin qw($Bin);
  10 use lib "$Bin";
  11
  12 use SIPtest qw($datepat $username $password $login_test $sc_status_test);
  13
  14 my $invalid_uname = { id => 'Invalid username',
  15                       msg => "9300CNinvalid$username|CO$password|CPThe floor|",
  16                       pat => qr/^940/,
  17                       fields => [], };
  18
  19 my $invalid_pwd = { id => 'Invalid password',
  20                       msg => "9300CN$username|COinvalid$password|CPThe floor|",
  21                       pat => qr/^940/,
  22                       fields => [], };
  23
  24 my @tests = ( $invalid_uname, $invalid_pwd, $login_test, $sc_status_test );
  25
  26 SIPtest::run_sip_tests(@tests);
  27
  28 1;