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
  10 use SIPtest qw($datepat $username $password $login_test $sc_status_test);
  11
  12 my $invalid_uname = { id => 'Invalid username',
  13                       msg => "9300CNinvalid$username|CO$password|CPThe floor|",
  14                       pat => qr/^940/,
  15                       fields => [], };
  16
  17 my $invalid_pwd = { id => 'Invalid password',
  18                       msg => "9300CN$username|COinvalid$password|CPThe floor|",
  19                       pat => qr/^940/,
  20                       fields => [], };
  21
  22 my @tests = ( $invalid_uname, $invalid_pwd, $login_test, $sc_status_test );
  23
  24 SIPtest::run_sip_tests(@tests);
  25
  26 1;