From: djfiander <djfiander>
Date: Wed, 26 Apr 2006 14:37:19 +0000 (+0000)
Subject: Very basic tests.  This will be a big test case.  I suspect that
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=84a7f8e42ed70f9a34f8e44ccf257970bfbd8a6a;p=working%2FSIPServer.git

Very basic tests.  This will be a big test case.  I suspect that
the test harness will have to be enhanced in a variety of ways,
including some way of indicating fields that SHOULD NOT appear,
as well as just fields that are required.
---

diff --git a/t/02patron_info.t b/t/02patron_info.t
new file mode 100644
index 0000000..39a7994
--- /dev/null
+++ b/t/02patron_info.t
@@ -0,0 +1,26 @@
+# 
+# patron_info: test Patron Information Response
+
+use strict;
+use warnings;
+
+use Sip::Constants qw(:all);
+
+use SIPtest qw($datepat);
+
+my @tests = (
+	     $SIPtest::login_test,
+	     $SIPtest::sc_status_test,
+	     { id => 'valid Patron Info no details',
+	       msg => '6300020060329    201700          AOUWOLS|AAdjfiander|',
+	       pat => qr/^64 [ Y]{13}\d{3}$datepat(\d{4}){6}/,
+	       fields => [
+			  $SIPtest::field_specs{(FID_INST_ID)},
+			  $SIPtest::field_specs{(FID_SCREEN_MSG)},
+			  $SIPtest::field_specs{(FID_PRINT_LINE)},
+			  ], },
+	     );
+
+SIPtest::run_sip_tests(@tests);
+
+1;