Checkin and PatronInformation

[Biblio-SIP2.git] / sc-emulator.pl

diff --git a/sc-emulator.pl b/sc-emulator.pl
index e614cec..715c014 100755 (executable)
--- a/sc-emulator.pl
+++ b/sc-emulator.pl
@@ -24,7 +24,7 @@ sub sip2 {
 
        my $in = <$sock>;
        warn "<<<< ", dump($in), "\n";
-       die unless $in =~ $patt;
+       die "expected $patt" unless $in =~ $patt;
 }
 
 # login
@@ -33,3 +33,8 @@ sip2 "9300CN$user|CO$password|" => qr/^941/;
 # SC Status
 sip2 "9900302.00" => qr/^98/;
 
+# Checkin
+sip2 "09N20091214    08142820091214    081428AP|AOFFZG|AB1301036581|AC|BIN|" => qr/^10/;
+
+# Patron Information
+sip2 "6300020091214    085452          AOFFZG|AA200903260093|AC$password|" => qr/^54/;