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 |
- |
|
|