|
Lines 191-253
subtest 'store borrowernumber change also updates holds' => sub {
Link Here
|
| 191 |
|
191 |
|
| 192 |
subtest 'Working with related objects' => sub { |
192 |
subtest 'Working with related objects' => sub { |
| 193 |
|
193 |
|
| 194 |
plan tests => 7; |
194 |
plan tests => 6; |
| 195 |
|
195 |
|
| 196 |
$schema->storage->txn_begin; |
196 |
$schema->storage->txn_begin; |
| 197 |
|
197 |
|
| 198 |
Koha::Illrequests->search->delete; |
198 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
| 199 |
|
199 |
my $illrq = $builder->build_object( |
| 200 |
my $patron = $builder->build({ source => 'Borrower' }); |
200 |
{ class => 'Koha::Illrequests', |
| 201 |
my $illrq = $builder->build({ |
201 |
value => { borrowernumber => $patron->id, biblio_id => undef } |
| 202 |
source => 'Illrequest', |
202 |
} |
| 203 |
value => { borrowernumber => $patron->{borrowernumber} } |
203 |
); |
| 204 |
}); |
|
|
| 205 |
my $illrq_obj = Koha::Illrequests->find($illrq->{illrequest_id}); |
| 206 |
|
| 207 |
isa_ok($illrq_obj->patron, 'Koha::Patron', |
| 208 |
"OK accessing related patron."); |
| 209 |
|
204 |
|
| 210 |
$builder->build({ |
205 |
isa_ok( $illrq->patron, 'Koha::Patron', "OK accessing related patron." ); |
| 211 |
source => 'Illrequestattribute', |
|
|
| 212 |
value => { illrequest_id => $illrq_obj->illrequest_id, type => 'X' } |
| 213 |
}); |
| 214 |
$builder->build({ |
| 215 |
source => 'Illrequestattribute', |
| 216 |
value => { illrequest_id => $illrq_obj->illrequest_id, type => 'Y' } |
| 217 |
}); |
| 218 |
$builder->build({ |
| 219 |
source => 'Illrequestattribute', |
| 220 |
value => { illrequest_id => $illrq_obj->illrequest_id, type => 'Z' } |
| 221 |
}); |
| 222 |
|
206 |
|
| 223 |
is($illrq_obj->illrequestattributes->count, Koha::Illrequestattributes->search->count, |
207 |
$builder->build( |
| 224 |
"Fetching expected number of Illrequestattributes for our request."); |
208 |
{ source => 'Illrequestattribute', |
|
|
209 |
value => { illrequest_id => $illrq->illrequest_id, type => 'X' } |
| 210 |
} |
| 211 |
); |
| 212 |
$builder->build( |
| 213 |
{ source => 'Illrequestattribute', |
| 214 |
value => { illrequest_id => $illrq->illrequest_id, type => 'Y' } |
| 215 |
} |
| 216 |
); |
| 217 |
$builder->build( |
| 218 |
{ source => 'Illrequestattribute', |
| 219 |
value => { illrequest_id => $illrq->illrequest_id, type => 'Z' } |
| 220 |
} |
| 221 |
); |
| 225 |
|
222 |
|
| 226 |
my $illrq1 = $builder->build({ source => 'Illrequest' }); |
223 |
my $rs = Koha::Illrequestattributes->search( { illrequest_id => $illrq->id } ); |
| 227 |
$builder->build({ |
|
|
| 228 |
source => 'Illrequestattribute', |
| 229 |
value => { illrequest_id => $illrq1->{illrequest_id}, type => 'X' } |
| 230 |
}); |
| 231 |
|
224 |
|
| 232 |
is($illrq_obj->illrequestattributes->count + 1, Koha::Illrequestattributes->search->count, |
225 |
is( $illrq->extended_attributes->count, |
| 233 |
"Fetching expected number of Illrequestattributes for our request."); |
226 |
$rs->count, "Fetching expected number of Illrequestattributes for our request." ); |
| 234 |
|
227 |
|
| 235 |
is($illrq_obj->biblio, undef, "->biblio returns undef if no biblio"); |
228 |
is( $illrq->biblio, undef, "->biblio returns undef if no biblio" ); |
| 236 |
my $biblio = $builder->build_object({ class => 'Koha::Biblios' }); |
229 |
my $biblio = $builder->build_object( { class => 'Koha::Biblios' } ); |
| 237 |
my $req_bib = $builder->build_object({ |
230 |
my $req_bib = $builder->build_object( |
| 238 |
class => 'Koha::Illrequests', |
231 |
{ class => 'Koha::Illrequests', |
| 239 |
value => { |
232 |
value => { biblio_id => $biblio->biblionumber } |
| 240 |
biblio_id => $biblio->biblionumber |
|
|
| 241 |
} |
233 |
} |
| 242 |
}); |
234 |
); |
| 243 |
isa_ok($req_bib->biblio, 'Koha::Biblio', "OK accessing related biblio"); |
235 |
isa_ok( $req_bib->biblio, 'Koha::Biblio', "OK accessing related biblio" ); |
| 244 |
|
236 |
|
| 245 |
$illrq_obj->delete; |
237 |
$illrq->delete; |
| 246 |
is(Koha::Illrequestattributes->search->count, 1, |
238 |
is( $rs->count, 0, "Correct number of illrequestattributes after delete." ); |
| 247 |
"Correct number of illrequestattributes after delete."); |
|
|
| 248 |
|
239 |
|
| 249 |
isa_ok(Koha::Patrons->find($patron->{borrowernumber}), 'Koha::Patron', |
240 |
isa_ok( Koha::Patrons->find( $patron->id ), 'Koha::Patron', "Borrower was not deleted after illrq delete." ); |
| 250 |
"Borrower was not deleted after illrq delete."); |
|
|
| 251 |
|
241 |
|
| 252 |
$schema->storage->txn_rollback; |
242 |
$schema->storage->txn_rollback; |
| 253 |
}; |
243 |
}; |
| 254 |
- |
|
|