View | Details | Raw Unified | Return to bug 29625
Collapse All | Expand All

(-)a/t/db_dependent/Koha/BiblioUtils/Iterator.t (-5 / +11 lines)
Lines 17-30 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::More tests => 7;
21
21
22
use_ok('Koha::BiblioUtils');
22
use_ok('Koha::BiblioUtils');
23
use_ok('Koha::BiblioUtils::Iterator');
23
use_ok('Koha::BiblioUtils::Iterator');
24
24
25
use C4::Items;
25
use Koha::Database;
26
use C4::Biblio;
27
use DBI;
28
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
29
use t::lib::Mocks;
27
use t::lib::Mocks;
30
28
Lines 60-63 my @result_tags = map { $_->tag() } $record->field('...'); Link Here
60
my @sorted_tags = sort @result_tags;
58
my @sorted_tags = sort @result_tags;
61
is_deeply(\@sorted_tags,$expected_tags, "Got the same tags as expected");
59
is_deeply(\@sorted_tags,$expected_tags, "Got the same tags as expected");
62
60
61
62
my $biblio_2 = $builder->build_sample_biblio();
63
my $biblio_3 = $builder->build_sample_biblio();
64
my $records = Koha::BiblioUtils->get_all_biblios_iterator();
65
is( $records->next->id, $biblio->biblionumber );
66
is( $records->next->id, $biblio_2->biblionumber );
67
is( $records->next->id, $biblio_3->biblionumber );
68
is( $records->next, undef, 'no more record' );
69
63
$schema->storage->txn_rollback();
70
$schema->storage->txn_rollback();
64
- 

Return to bug 29625