gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 18361: Additional tests for Koha::Objects->find 

Adding a subtest find in t/db_dependent/Koha/Objects.t.

Test plan:
Run t/db_dependent/Koha/Objects.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Marcel de Rooy 2017-04-13 13:15:30 +02:00 committed by Jonathan Druart
parent ec288a50de
commit de74a4e5a0
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
t/db_dependent/Koha/Objects.t
View File

@ -19,11 +19,12 @@
use Modern::Perl;
use Test::More tests => 14;
use Test::More tests => 15;
use Test::Warn;
use Koha::Authority::Types;
use Koha::Cities;
use Koha::IssuingRules;
use Koha::Patron::Category;
use Koha::Patron::Categories;
use Koha::Patrons;
@ -108,6 +109,32 @@ subtest 'new' => sub {
Koha::Patron::Categories->find($a_cat_code)->delete;
};
subtest 'find' => sub {
plan tests => 4;
# check find on a single PK
my $patron = $builder->build({ source => 'Borrower' });
is( Koha::Patrons->find($patron->{borrowernumber})->surname,
$patron->{surname}, "Checking an arbitrary patron column after find"
);
# check find with unique column
my $obj = Koha::Patrons->find($patron->{cardnumber}, { key => 'cardnumber' });
is( $obj->borrowernumber, $patron->{borrowernumber},
'Find with unique column and key specified' );
# check find with an additional where clause in the attrs hash
# we do not expect to find something now
is( Koha::Patrons->find(
$patron->{borrowernumber},
{ where => { surname => { '!=', $patron->{surname} }}},
), undef, 'Additional where clause in find call' );
# check find with a composite FK
my $rule = $builder->build({ source => 'Issuingrule' });
my @pk = ( $rule->{branchcode}, $rule->{categorycode}, $rule->{itemtype} );
is( ref(Koha::IssuingRules->find(@pk)), "Koha::IssuingRule",
'Find returned a Koha object for composite primary key' );
};
subtest 'search_related' => sub {
plan tests => 8;
my $builder = t::lib::TestBuilder->new;