|
Lines 20-26
Link Here
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
use utf8; |
21 |
use utf8; |
| 22 |
|
22 |
|
| 23 |
use Test::More tests => 29; |
23 |
use Test::More tests => 30; |
| 24 |
use Test::Exception; |
24 |
use Test::Exception; |
| 25 |
use Test::MockModule; |
25 |
use Test::MockModule; |
| 26 |
|
26 |
|
|
Lines 1176-1181
subtest 'get_transfers' => sub {
Link Here
|
| 1176 |
$schema->storage->txn_rollback; |
1176 |
$schema->storage->txn_rollback; |
| 1177 |
}; |
1177 |
}; |
| 1178 |
|
1178 |
|
|
|
1179 |
subtest 'Test for relationship between item and current_branchtransfers' => sub { |
| 1180 |
plan tests => 4; |
| 1181 |
|
| 1182 |
$schema->storage->txn_begin; |
| 1183 |
|
| 1184 |
my $item = $builder->build_sample_item(); |
| 1185 |
my $transfer = $builder->build_object( |
| 1186 |
{ |
| 1187 |
class => 'Koha::Item::Transfers', |
| 1188 |
value => { |
| 1189 |
itemnumber => $item->itemnumber, |
| 1190 |
datesent => dt_from_string, |
| 1191 |
datearrived => dt_from_string, |
| 1192 |
datecancelled => undef, |
| 1193 |
} |
| 1194 |
} |
| 1195 |
); |
| 1196 |
|
| 1197 |
my $transfer_item = $transfer->item; |
| 1198 |
my $biblio = Koha::Biblios->find( $transfer_item->biblionumber ); |
| 1199 |
|
| 1200 |
my $current_branchtransfers = Koha::Items->search( |
| 1201 |
{ 'me.itemnumber' => $transfer_item->itemnumber }, |
| 1202 |
{ prefetch => ['current_branchtransfers'] } |
| 1203 |
); |
| 1204 |
|
| 1205 |
my $item_with_branchtransfers = $current_branchtransfers->next; |
| 1206 |
|
| 1207 |
is( |
| 1208 |
$transfer_item->itemnumber, |
| 1209 |
$item_with_branchtransfers->itemnumber, |
| 1210 |
'following two items are the same' |
| 1211 |
); |
| 1212 |
|
| 1213 |
# following two tests should produce the same result |
| 1214 |
is( |
| 1215 |
$transfer_item->get_transfer, |
| 1216 |
undef, |
| 1217 |
'Koha::Item->get_transfer returns undef with no active transfers' |
| 1218 |
); |
| 1219 |
is( |
| 1220 |
$item_with_branchtransfers->get_transfer, undef, |
| 1221 |
'prefetched result->get_transfer returns undef with no active transfers' |
| 1222 |
); |
| 1223 |
|
| 1224 |
$transfer->set( |
| 1225 |
{ |
| 1226 |
datearrived => undef, |
| 1227 |
} |
| 1228 |
)->store; |
| 1229 |
|
| 1230 |
$current_branchtransfers = Koha::Items->search( |
| 1231 |
{ 'me.itemnumber' => $transfer_item->itemnumber }, |
| 1232 |
{ prefetch => ['current_branchtransfers'] } |
| 1233 |
); |
| 1234 |
|
| 1235 |
$item_with_branchtransfers = $current_branchtransfers->next; |
| 1236 |
|
| 1237 |
is( |
| 1238 |
$transfer_item->get_transfer->branchtransfer_id, |
| 1239 |
$item_with_branchtransfers->get_transfer->branchtransfer_id, |
| 1240 |
'an active transfer produces same branchtransfer_id for both methods' |
| 1241 |
); |
| 1242 |
|
| 1243 |
$schema->storage->txn_rollback; |
| 1244 |
}; |
| 1245 |
|
| 1179 |
subtest 'Tests for relationship between item and item_orders via aqorders_item' => sub { |
1246 |
subtest 'Tests for relationship between item and item_orders via aqorders_item' => sub { |
| 1180 |
plan tests => 3; |
1247 |
plan tests => 3; |
| 1181 |
|
1248 |
|
| 1182 |
- |
|
|