From: djfiander <djfiander>
Date: Fri, 9 Jun 2006 02:44:03 +0000 (+0000)
Subject: Initial tests for Item Information message
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=19cbd5b3e5b8fbb634382a55370985465c9de7a2;p=SIPServer.git

Initial tests for Item Information message
---

diff --git a/t/11item_info.t b/t/11item_info.t
new file mode 100644
index 0000000..67fb28b
--- /dev/null
+++ b/t/11item_info.t
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+# renew_all: test Renew All Response
+
+use strict;
+use warnings;
+use Clone qw(clone);
+
+use Sip::Constants qw(:all);
+
+use SIPtest qw($datepat $textpat);
+
+my $item_info_test_template = {
+    id => 'Item Information: check information for available item',
+    msg => '1720060110    215612AOUWOLS|AB1565921879|',
+    pat => qr/^18030201$datepat/,
+    fields => [
+	       $SIPtest::field_specs{(FID_SCREEN_MSG)},
+	       $SIPtest::field_specs{(FID_PRINT_LINE)},
+	       { field    => FID_ITEM_ID,
+		 pat      => qr/^1565921879$/,
+		 required => 1, },
+	       { field    => FID_TITLE_ID,
+		 pat      => qr/^Perl 5 desktop reference$/,
+		 required => 1, },
+	       { field    => FID_MEDIA_TYPE,
+		 pat      => qr/^\d{3}$/,
+		 required => 0, },
+	       { field    => FID_OWNER,
+		 pat      => qr/^UWOLS$/,
+		 required => 0, },
+	       ], };
+
+my @tests = (
+	     $SIPtest::login_test,
+	     $SIPtest::sc_status_test,
+	     clone($item_info_test_template),
+	     );
+
+SIPtest::run_sip_tests(@tests);
+
+1;