Bug 29625: Add test for get_all_biblios_iterator
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
parent
73bb8bbee9
commit
91c48e27ec
1 changed files with 11 additions and 4 deletions
|
@ -17,14 +17,12 @@
|
|||
|
||||
use Modern::Perl;
|
||||
|
||||
use Test::More tests => 3;
|
||||
use Test::More tests => 7;
|
||||
|
||||
use_ok('Koha::BiblioUtils');
|
||||
use_ok('Koha::BiblioUtils::Iterator');
|
||||
|
||||
use C4::Items;
|
||||
use C4::Biblio;
|
||||
use DBI;
|
||||
use Koha::Database;
|
||||
use t::lib::TestBuilder;
|
||||
use t::lib::Mocks;
|
||||
|
||||
|
@ -60,4 +58,13 @@ my @result_tags = map { $_->tag() } $record->field('...');
|
|||
my @sorted_tags = sort @result_tags;
|
||||
is_deeply(\@sorted_tags,$expected_tags, "Got the same tags as expected");
|
||||
|
||||
|
||||
my $biblio_2 = $builder->build_sample_biblio();
|
||||
my $biblio_3 = $builder->build_sample_biblio();
|
||||
my $records = Koha::BiblioUtils->get_all_biblios_iterator();
|
||||
is( $records->next->id, $biblio->biblionumber );
|
||||
is( $records->next->id, $biblio_2->biblionumber );
|
||||
is( $records->next->id, $biblio_3->biblionumber );
|
||||
is( $records->next, undef, 'no more record' );
|
||||
|
||||
$schema->storage->txn_rollback();
|
||||
|
|
Loading…
Reference in a new issue