- 

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Koha::MetadataIterator;

use Koha::MetadataRecord::Authority;

use Koha::SearchEngine::Elasticsearch;

use t::lib::TestBuilder;

use C4::Biblio;

use C4::AuthoritiesMarc;

use Test::More tests => 1;

my $schema = Koha::Database->new()->schema();

$schema->storage->txn_begin();

subtest 'Test Koha::MetadataRecord::Authority' => sub {

    plan tests => 4;

    my $dbh = C4::Context->dbh;

    $dbh->do("DELETE FROM auth_header");

    my $offset = 1;

    my $length = 2;

    my %iterator_options;

    #test without items in auth_header

    my $records = Koha::MetadataRecord::Authority->get_all_authorities_iterator(\%iterator_options, $offset, $length);

    is(ref($records),'Koha::MetadataIterator',"the package name isn't Koha::MetadataIterator");

    my $count = 0;

    while ($records->next()) {

        $count++;

    }

    is($count,0,"There is not the right number of notices");

    my $builder = t::lib::TestBuilder->new();

    # create three auth types

    my $authtype1 = $builder->build({

        source => 'AuthType',

        value  => {

            auth_tag_to_report => '1',

        },

    });

    my $authtype2 = $builder->build({

        source => 'AuthType',

        value  => {

            auth_tag_to_report => '2',

        },

    });

    my $authtype3 = $builder->build({

        source => 'AuthType',

        value  => {

            auth_tag_to_report => '3',

        },

    });

    # Add three authority records

    my $auth1 = MARC::Record->new;

    $auth1->append_fields( MARC::Field->new( '109', '0', '0', 'a' => 'Auth1' ));

    my $authid1 = AddAuthority( $auth1, undef, $authtype1->{'authtypecode'} );

    my $auth2 = MARC::Record->new;

    $auth2->append_fields( MARC::Field->new( '110', '0', '0', 'a' => 'Auth2' ));

    my $authid2 = AddAuthority( $auth2, undef, $authtype2->{'authtypecode'} );

    my $auth3 = MARC::Record->new;

    $auth3->append_fields( MARC::Field->new( '111', '0', '0', 'a' => 'Auth3' ));

    my $authid3 = AddAuthority( $auth3, undef, $authtype3->{'authtypecode'} );

    #test with items in auth_header

    $records = Koha::MetadataRecord::Authority->get_all_authorities_iterator(\%iterator_options, $offset, $length);

    is(ref($records),'Koha::MetadataIterator',"the package name is Koha::MetadataIterator");

    $count = 0;

    while ($records->next()) {

        $count++;

    }

    is($count,2,"There is the right number of notices");

};

$schema->storage->txn_rollback;