9 our $user = 'sip2-user';
10 our $password = 'sip2-paasswd';
12 require 'config.pl' if -e 'config.pl';
16 our $sock = IO::Socket::INET->new( '10.60.0.251:6001' );
20 my ( $send, $patt ) = @_;
21 SIP2::dump_message '>>>>', $send;
22 print $sock "$send\r\n";
28 SIP2::dump_message '<<<<', $in;
29 die "expected $patt" unless $in =~ $patt;
33 sip2 "9300CN$user|CO$password|" => qr/^941/;
36 sip2 "9900302.00" => qr/^98/;
39 sip2 "09N20091214 08142820091214 081428AP|AOFFZG|AB1301036581|AC|BIN|" => qr/^10/;
42 sip2 "6300020091214 085452 AOFFZG|AA200903260093|AC$password|" => qr/^64/;