bug 5825: (follow-up) add regression test
authorGalen Charlton <gmc@esilibrary.com>
Fri, 16 Aug 2013 15:34:07 +0000 (15:34 +0000)
committerGalen Charlton <gmc@esilibrary.com>
Fri, 16 Aug 2013 15:35:58 +0000 (15:35 +0000)
To test:

Verify that prove -v t/db_dependent/HoldsQueue.t passes.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
t/db_dependent/HoldsQueue.t

index 8de2583..b9f5afb 100755 (executable)
@@ -12,7 +12,7 @@ use C4::Context;
 
 use Data::Dumper;
 
-use Test::More tests => 18;
+use Test::More tests => 19;
 
 use C4::Branch;
 use C4::ItemType;
@@ -147,6 +147,7 @@ ok( $queue_item
  && $queue_item->{pickbranch} eq $borrower_branchcode
  && $queue_item->{holdingbranch} eq $least_cost_branch_code, "GetHoldsQueueItems" )
   or diag( "Expected item for pick $borrower_branchcode, hold $least_cost_branch_code, got ".Dumper($queue_item) );
+ok( exists($queue_item->{itype}), 'item type included in queued items list (bug 5825)' );
 
 # XXX All this tests are for borrower branch pick-up.
 # Maybe needs expanding to homebranch or holdingbranch pick-up.