From 57c29bbaab0585df0e05f9423decbc7abeccdcb0 Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Sat, 27 May 2006 13:33:11 +0000
Subject: [PATCH] Initial test case

---
 t/07hold.t | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 t/07hold.t

diff --git a/t/07hold.t b/t/07hold.t
new file mode 100644
index 0000000..b8dac2c
--- /dev/null
+++ b/t/07hold.t
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+# patron_enable: test  Patron Enable Response
+
+use strict;
+use warnings;
+use Clone qw(clone);
+
+use Sip::Constants qw(:all);
+
+use SIPtest qw($datepat $textpat);
+
+my $hold_test_template = {
+    id => 'Place Hold: valid item, valid patron',
+    msg => '15+20060415    110158BW20060815    110158|BSTaylor|BY2|AOUWOLS|AAdjfiander|AB1565921879|',
+    pat => qr/^161N$datepat/,
+    fields => [
+	       $SIPtest::field_specs{(FID_INST_ID)},
+	       $SIPtest::field_specs{(FID_SCREEN_MSG)},
+	       $SIPtest::field_specs{(FID_PRINT_LINE)},
+	       { field    => FID_PATRON_ID,
+		 pat      => qr/^djfiander$/,
+		 required => 1, },
+	       { field    => FID_EXPIRATION,
+		 pat      => $datepat,
+		 required => 0, },
+	       { field    => FID_QUEUE_POS,
+		 pat      => qr/^[0-9]$/,
+		 required => 1, },
+	       { field    => FID_PICKUP_LOCN,
+		 pat      => qr/^Taylor$/,
+		 required => 1, },
+	       { field    => FID_TITLE_ID,
+		 pat      => $textpat,
+		 required => 1, },
+	       { field    => FID_ITEM_ID,
+		 pat      => qr/^1565921879$/,
+		 required => 1, },
+    ],};
+    
+my @tests = (
+	     $SIPtest::login_test,
+	     $SIPtest::sc_status_test,
+	     $hold_test_template,
+	     );
+
+SIPtest::run_sip_tests(@tests);
+
+1;
-- 
2.11.0