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 |
} |
1193 |
} |
1194 |
); |
1195 |
|
1196 |
my $transfer_item = $transfer->item; |
1197 |
my $biblio = Koha::Biblios->find($transfer_item->biblionumber); |
1198 |
|
1199 |
my $current_branchtransfers = Koha::Items->search( { |
1200 |
'me.itemnumber' => $transfer_item->itemnumber |
1201 |
}, { |
1202 |
prefetch => ['current_branchtransfers'] |
1203 |
} |
1204 |
); |
1205 |
|
1206 |
my $item_with_branchtransfers = $current_branchtransfers->next; |
1207 |
|
1208 |
is($transfer_item->itemnumber, $item_with_branchtransfers->itemnumber, |
1209 |
'following two items are the same'); |
1210 |
|
1211 |
# following two tests should produce the same result |
1212 |
is($transfer_item->get_transfer, undef, |
1213 |
'Koha::Item->get_transfer returns undef with no active transfers'); |
1214 |
is($item_with_branchtransfers->get_transfer, undef, |
1215 |
'prefetched result->get_transfer returns undef with no active transfers'); |
1216 |
|
1217 |
$transfer->set({ |
1218 |
datesent => undef, |
1219 |
datearrived => undef, |
1220 |
})->store; |
1221 |
|
1222 |
$current_branchtransfers = Koha::Items->search( { |
1223 |
'me.itemnumber' => $transfer_item->itemnumber |
1224 |
}, { |
1225 |
prefetch => ['current_branchtransfers'] |
1226 |
} |
1227 |
); |
1228 |
|
1229 |
$item_with_branchtransfers = $current_branchtransfers->next; |
1230 |
|
1231 |
is($transfer_item->get_transfer->branchtransfer_id, |
1232 |
$item_with_branchtransfers->get_transfer->branchtransfer_id, |
1233 |
'an active transfer produces same branchtransfer_id for both methods'); |
1234 |
|
1235 |
$schema->storage->txn_rollback; |
1236 |
}; |
1237 |
|
1179 |
subtest 'Tests for relationship between item and item_orders via aqorders_item' => sub { |
1238 |
subtest 'Tests for relationship between item and item_orders via aqorders_item' => sub { |
1180 |
plan tests => 3; |
1239 |
plan tests => 3; |
1181 |
|
1240 |
|
1182 |
- |
|
|