11 use DateTime::Duration;
13 use t::lib::TestBuilder;
15 use Test::More tests => 22;
19 use_ok('C4::Circulation');
24 CreateBranchTransferLimit
25 DeleteBranchTransferLimits
32 my $schema = Koha::Database->schema;
33 $schema->storage->txn_begin;
34 my $builder = t::lib::TestBuilder->new;
36 my $dbh = C4::Context->dbh;
37 $dbh->do(q|DELETE FROM issues|);
38 $dbh->do(q|DELETE FROM borrowers|);
39 $dbh->do(q|DELETE FROM items|);
40 $dbh->do(q|DELETE FROM branches|);
41 $dbh->do(q|DELETE FROM branch_transfer_limits|);
42 $dbh->do(q|DELETE FROM branchtransfers|);
46 my $samplebranch1 = $builder->build({
49 my $samplebranch2 = $builder->build({
54 my $record = MARC::Record->new();
55 $record->append_fields(
56 MARC::Field->new( '952', '0', '0', a => $samplebranch1->{branchcode} ) );
57 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( $record, '', );
59 my @sampleitem1 = C4::Items::AddItem(
62 itemcallnumber => 'callnumber1',
63 homebranch => $samplebranch1->{branchcode},
64 holdingbranch => $samplebranch1->{branchcode}
68 my $item_id1 = $sampleitem1[2];
69 my @sampleitem2 = C4::Items::AddItem(
72 itemcallnumber => 'callnumber2',
73 homebranch => $samplebranch1->{branchcode},
74 holdingbranch => $samplebranch1->{branchcode}
78 my $item_id2 = $sampleitem2[2];
83 $samplebranch1->{branchcode},
84 $samplebranch2->{branchcode}
88 $samplebranch1->{branchcode},
89 $samplebranch2->{branchcode}
93 #Test CreateBranchTransferLimit
95 CreateBranchTransferLimit(
96 $samplebranch2->{branchcode},
97 $samplebranch1->{branchcode}, 'CODE'
100 "A Branch TransferLimit has been added"
102 is(CreateBranchTransferLimit(),undef,
103 "Without parameters CreateBranchTransferLimit returns undef");
104 is(CreateBranchTransferLimit($samplebranch2->{branchcode}),undef,
105 "With only tobranch CreateBranchTransferLimit returns undef");
106 is(CreateBranchTransferLimit(undef,$samplebranch2->{branchcode}),undef,
107 "With only frombranch CreateBranchTransferLimit returns undef");
108 #FIXME: Currently, we can add a transferlimit even to nonexistent branches because in the database,
109 #branch_transfer_limits.toBranch and branch_transfer_limits.fromBranch aren't foreign keys
110 #is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added");
113 my @transfers = GetTransfers($item_id1);
116 [ re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), $samplebranch1->{branchcode}, $samplebranch2->{branchcode} ],
117 "Transfers of the item1"
118 ); #NOTE: Only the first transfer is returned
119 @transfers = GetTransfers;
120 is_deeply( \@transfers, [],
121 "GetTransfers without params returns an empty array" );
122 @transfers = GetTransfers(-1);
123 is_deeply( \@transfers, [],
124 "GetTransfers with a wrong item id returns an empty array" );
126 #Test GetTransfersFromTo
127 my @transferfrom1to2 = GetTransfersFromTo( $samplebranch1->{branchcode},
128 $samplebranch2->{branchcode} );
133 itemnumber => $item_id1,
134 datesent => re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'),
135 frombranch => $samplebranch1->{branchcode}
138 itemnumber => $item_id2,
139 datesent => re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'),
140 frombranch => $samplebranch1->{branchcode}
143 "Item1 and Item2 has been transfered from branch1 to branch2"
145 my @transferto = GetTransfersFromTo( undef, $samplebranch2->{branchcode} );
146 is_deeply( \@transferto, [],
147 "GetTransfersfromTo without frombranch returns an empty array" );
148 my @transferfrom = GetTransfersFromTo( $samplebranch1->{branchcode} );
149 is_deeply( \@transferfrom, [],
150 "GetTransfersfromTo without tobranch returns an empty array" );
151 @transferfrom = GetTransfersFromTo();
152 is_deeply( \@transferfrom, [],
153 "GetTransfersfromTo without params returns an empty array" );
155 #Test DeleteBranchTransferLimits
157 C4::Circulation::DeleteBranchTransferLimits( $samplebranch1->{branchcode} ),
159 "A Branch TransferLimit has been deleted"
161 is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef");
162 is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0");
165 is( C4::Circulation::DeleteTransfer($item_id1),
166 1, "A the item1's transfer has been deleted" );
167 is(C4::Circulation::DeleteTransfer(),undef,"Without itemid DeleteTransfer returns undef");
168 is(C4::Circulation::DeleteTransfer(-1),'0E0',"with a wrong itemid DeleteTranfer returns 0E0");
171 is( C4::Circulation::TransferSlip($samplebranch1->{branchcode}, undef, 5, $samplebranch2->{branchcode}),
172 undef, "No tranferslip if invalid or undef itemnumber or barcode" );
173 is( C4::Circulation::TransferSlip($samplebranch1->{branchcode}, $item_id1, 1, $samplebranch2->{branchcode})->{'code'},
174 'TRANSFERSLIP', "Get a transferslip on valid itemnumber and/or barcode" );
176 C4::Circulation::TransferSlip($samplebranch1->{branchcode}, $item_id1, undef, $samplebranch2->{branchcode}),
177 C4::Circulation::TransferSlip($samplebranch1->{branchcode}, undef, 1, $samplebranch2->{branchcode}),
178 "Barcode and itemnumber for same item both generate same TransferSlip"