|
Lines 38-44
can_ok(
Link Here
|
| 38 |
qw( |
38 |
qw( |
| 39 |
CreateBranchTransferLimit |
39 |
CreateBranchTransferLimit |
| 40 |
DeleteBranchTransferLimits |
40 |
DeleteBranchTransferLimits |
| 41 |
DeleteTransfer |
|
|
| 42 |
GetTransfers |
41 |
GetTransfers |
| 43 |
GetTransfersFromTo |
42 |
GetTransfersFromTo |
| 44 |
) |
43 |
) |
|
Lines 223-234
is(
Link Here
|
| 223 |
is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef"); |
222 |
is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef"); |
| 224 |
is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0"); |
223 |
is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0"); |
| 225 |
|
224 |
|
| 226 |
#Test DeleteTransfer |
|
|
| 227 |
is( C4::Circulation::DeleteTransfer($item_id1), |
| 228 |
1, "A the item1's transfer has been deleted" ); |
| 229 |
is(C4::Circulation::DeleteTransfer(),undef,"Without itemid DeleteTransfer returns undef"); |
| 230 |
is(C4::Circulation::DeleteTransfer(-1),'0E0',"with a wrong itemid DeleteTranfer returns 0E0"); |
| 231 |
|
| 232 |
#Test TransferSlip |
225 |
#Test TransferSlip |
| 233 |
is( C4::Circulation::TransferSlip($branchcode_1, undef, 5, $branchcode_2), |
226 |
is( C4::Circulation::TransferSlip($branchcode_1, undef, 5, $branchcode_2), |
| 234 |
undef, "No tranferslip if invalid or undef itemnumber or barcode" ); |
227 |
undef, "No tranferslip if invalid or undef itemnumber or barcode" ); |
| 235 |
- |
|
|