8 use Data::Dump qw(dump);
10 our $user = 'sip2-user';
11 our $password = 'sip2-paasswd';
13 require 'config.pl' if -e 'config.pl';
15 our $sock = IO::Socket::INET->new( '10.60.0.251:6001' );
18 my ( $send, $patt ) = @_;
19 warn ">>>> ", dump($send), "\n";
20 print $sock "$send\r\n";
26 warn "<<<< ", dump($in), "\n";
27 die "expected $patt" unless $in =~ $patt;
31 sip2 "9300CN$user|CO$password|" => qr/^941/;
34 sip2 "9900302.00" => qr/^98/;
37 sip2 "09N20091214 08142820091214 081428AP|AOFFZG|AB1301036581|AC|BIN|" => qr/^10/;
40 sip2 "6300020091214 085452 AOFFZG|AA200903260093|AC$password|" => qr/^54/;