|
Lines 24-30
use Test::Warn;
Link Here
|
| 24 |
|
24 |
|
| 25 |
use Koha::Authority::Types; |
25 |
use Koha::Authority::Types; |
| 26 |
use Koha::Cities; |
26 |
use Koha::Cities; |
| 27 |
use Koha::IssuingRules; |
27 |
use Koha::Notice::Templates; |
| 28 |
use Koha::Patron::Category; |
28 |
use Koha::Patron::Category; |
| 29 |
use Koha::Patron::Categories; |
29 |
use Koha::Patron::Categories; |
| 30 |
use Koha::Patrons; |
30 |
use Koha::Patrons; |
|
Lines 135-143
subtest 'find' => sub {
Link Here
|
| 135 |
), undef, 'Additional where clause in find call' ); |
135 |
), undef, 'Additional where clause in find call' ); |
| 136 |
|
136 |
|
| 137 |
# check find with a composite FK |
137 |
# check find with a composite FK |
| 138 |
my $rule = $builder->build({ source => 'Issuingrule' }); |
138 |
my $letter = $builder->build({ source => 'Letter' }); |
| 139 |
my @pk = ( $rule->{branchcode}, $rule->{categorycode}, $rule->{itemtype} ); |
139 |
my @pk = ( |
| 140 |
is( ref(Koha::IssuingRules->find(@pk)), "Koha::IssuingRule", |
140 |
$letter->{module}, $letter->{code}, $letter->{branchcode}, |
|
|
141 |
$letter->{message_transport_type}, $letter->{lang} |
| 142 |
); |
| 143 |
is( ref(Koha::Notice::Templates->find(@pk)), "Koha::Notice::Template", |
| 141 |
'Find returned a Koha object for composite primary key' ); |
144 |
'Find returned a Koha object for composite primary key' ); |
| 142 |
|
145 |
|
| 143 |
is( Koha::Patrons->find(), undef, 'Find returns undef if no params passed' ); |
146 |
is( Koha::Patrons->find(), undef, 'Find returns undef if no params passed' ); |
| 144 |
- |
|
|