subtest "CanBookBeRenewed tests" => sub {

subtest "CanBookBeRenewed tests" => sub {

    plan tests => 113;

    plan tests => 113;

    # Generate test biblio

    # Generate test biblio

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

                }

                }

            }

            }

        );

        );

        my $fines_amount = 5;

        my $fines_amount = 5;

        my $account = Koha::Account->new({patron_id => $renewing_borrowernumber});

        my $account = Koha::Account->new({patron_id => $renewing_borrowernumber});

        $account->add_debit(

        $account->add_debit(

        is( $renewokay, 1, 'Renew, even if renewal is automatic' );

        is( $renewokay, 1, 'Renew, even if renewal is automatic' );

        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, OPACFineNoRenewalsIncludeCredit=1, patron has 15 debt, 5 credit'  );

        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, OPACFineNoRenewalsIncludeCredit=1, patron has 15 debt, 5 credit'  );

        ( $renewokay, $error ) =

        ( $renewokay, $error ) =

          CanBookBeRenewed( $renewing_borrower_obj, $issue );

          CanBookBeRenewed( $renewing_borrower_obj, $issue );

        is( $renewokay, 0, 'Do not renew, renewal is automatic' );

        is( $renewokay, 0, 'Do not renew, renewal is automatic' );

        is( $error, 'auto_too_much_oweing', 'Cannot auto renew, OPACFineNoRenewals=10, OPACFineNoRenewalsIncludeCredit=1, patron has 15 debt, 5 credit'  );

        is( $error, 'auto_too_much_oweing', 'Cannot auto renew, OPACFineNoRenewals=10, OPACFineNoRenewalsIncludeCredit=1, patron has 15 debt, 5 credit'  );

        $dbh->do('DELETE FROM accountlines WHERE borrowernumber=?', undef, $renewing_borrowernumber);

        $dbh->do('DELETE FROM accountlines WHERE borrowernumber=?', undef, $renewing_borrowernumber);

    };

    };

    subtest "auto_account_expired | BlockExpiredPatronOpacActions" => sub {

    subtest "auto_account_expired | BlockExpiredPatronOpacActions" => sub {

use Test::MockModule;

use Test::MockModule;

use C4::Context;

use C4::Context;

use Koha::Database;

use Koha::Database;

our $schema;

our $schema;

    my $dbh;

    my $dbh;

    ok($dbh = C4::Context->dbh(), 'Getting dbh from C4::Context');

    ok($dbh = C4::Context->dbh(), 'Getting dbh from C4::Context');

    C4::Context->clear_syspref_cache();

    C4::Context->clear_syspref_cache();

    my $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    my $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    is($OPACBaseURL,'http://junk','OPACBaseURL saved with http:// when missing it');

    is($OPACBaseURL,'http://junk','OPACBaseURL saved with http:// when missing it');

    C4::Context->clear_syspref_cache();

    C4::Context->clear_syspref_cache();

    $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    is($OPACBaseURL,'https://junk','OPACBaseURL saved with https:// as specified');

    is($OPACBaseURL,'https://junk','OPACBaseURL saved with https:// as specified');

    C4::Context->clear_syspref_cache();

    C4::Context->clear_syspref_cache();

    $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    is($OPACBaseURL,'http://junk2','OPACBaseURL saved with http:// as specified');

    is($OPACBaseURL,'http://junk2','OPACBaseURL saved with http:// as specified');

    $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    $OPACBaseURL = C4::Context->preference('OPACBaseURL');

    is($OPACBaseURL,'','OPACBaseURL saved empty as specified');

    is($OPACBaseURL,'','OPACBaseURL saved empty as specified');

    C4::Context->clear_syspref_cache();

    C4::Context->clear_syspref_cache();

    my $SillyPeference = C4::Context->preference('SillyPreference');

    my $SillyPeference = C4::Context->preference('SillyPreference');

    is($SillyPeference,'random','SillyPreference saved as specified');

    is($SillyPeference,'random','SillyPreference saved as specified');

    open my $trace, '>', \$trace_read or die "Can't open variable: $!";

    open my $trace, '>', \$trace_read or die "Can't open variable: $!";

    $schema->storage->debugfh( $trace );

    $schema->storage->debugfh( $trace );

    my $silly_preference = Koha::Config::SysPrefs->find('SillyPreference');

    my $silly_preference = Koha::Config::SysPrefs->find('SillyPreference');

    is( $silly_preference->variable, 'SillyPreference', 'set_preference should have kept the case sensitivity' );

    is( $silly_preference->variable, 'SillyPreference', 'set_preference should have kept the case sensitivity' );

    $silly_preference->delete();

    $silly_preference->delete();

    # AutoEmailNewUser should be a YesNo pref

    # AutoEmailNewUser should be a YesNo pref

    my $yesno_pref = Koha::Config::SysPrefs->find('AutoEmailNewUser');

    my $yesno_pref = Koha::Config::SysPrefs->find('AutoEmailNewUser');

    is( $yesno_pref->value(), 0, 'set_preference should have set the value to 0, instead of an empty string' );

    is( $yesno_pref->value(), 0, 'set_preference should have set the value to 0, instead of an empty string' );

    });

    });

    my $idr_rules = "";

    my $idr_rules = "";

    is( $deny_book->is_denied_renewal, 0, 'Renewal allowed when no rules' );

    is( $deny_book->is_denied_renewal, 0, 'Renewal allowed when no rules' );

    # The wrong column delete should be silently ignored and not trigger item delete

    # The wrong column delete should be silently ignored and not trigger item delete

    $idr_rules="delete: [yes]\nwithdrawn: [1]";

    $idr_rules="delete: [yes]\nwithdrawn: [1]";

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked when 1 rules (withdrawn)' );

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked when 1 rules (withdrawn)' );

    is( $allow_book->is_denied_renewal, 0, 'Renewal allowed when 1 rules not matched (withdrawn)' );

    is( $allow_book->is_denied_renewal, 0, 'Renewal allowed when 1 rules not matched (withdrawn)' );

    is( $allow_book->is_denied_renewal, 0, 'Renewal allowed when 2 rules not matched (withdrawn, itype)' );

    is( $allow_book->is_denied_renewal, 0, 'Renewal allowed when 2 rules not matched (withdrawn, itype)' );

    $idr_rules="withdrawn: [1]\nitype: [HIDE,INVISIBLE]\nlocation: [PROC]";

    $idr_rules="withdrawn: [1]\nitype: [HIDE,INVISIBLE]\nlocation: [PROC]";

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked when 3 rules matched (withdrawn, itype, location)' );

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked when 3 rules matched (withdrawn, itype, location)' );

    is( $allow_book->is_denied_renewal, 0, 'Renewal allowed when 3 rules not matched (withdrawn, itype, location)' );

    is( $allow_book->is_denied_renewal, 0, 'Renewal allowed when 3 rules not matched (withdrawn, itype, location)' );

    $idr_rules="itemcallnumber: [null]";

    $idr_rules="itemcallnumber: [null]";

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked for undef when null in pref' );

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked for undef when null in pref' );

    $idr_rules="itemcallnumber: ['']";

    $idr_rules="itemcallnumber: ['']";

    is( $deny_book->is_denied_renewal, 0, 'Renewal not blocked for undef when "" in pref' );

    is( $deny_book->is_denied_renewal, 0, 'Renewal not blocked for undef when "" in pref' );

    $idr_rules="itemnotes: [null]";

    $idr_rules="itemnotes: [null]";

    is( $deny_book->is_denied_renewal, 0, 'Renewal not blocked for "" when null in pref' );

    is( $deny_book->is_denied_renewal, 0, 'Renewal not blocked for "" when null in pref' );

    $idr_rules="itemnotes: ['']";

    $idr_rules="itemnotes: ['']";

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked for empty string when "" in pref' );

    is( $deny_book->is_denied_renewal, 1, 'Renewal blocked for empty string when "" in pref' );

    $schema->storage->txn_rollback;

    $schema->storage->txn_rollback;

    ok( exists $routes->{'/contrib/testplugin/patrons/bother'}, 'Route exists' );

    ok( exists $routes->{'/contrib/testplugin/patrons/bother'}, 'Route exists' );

    ok( exists $routes->{'/contrib/testplugin/public/patrons/bother'}, 'Route exists' );

    ok( exists $routes->{'/contrib/testplugin/public/patrons/bother'}, 'Route exists' );

    $t->get_ok('/api/v1/contrib/testplugin/public/patrons/bother')

    $t->get_ok('/api/v1/contrib/testplugin/public/patrons/bother')

      ->status_is(200, 'Plugin routes not affected by RESTPublicAnonymousRequests')

      ->status_is(200, 'Plugin routes not affected by RESTPublicAnonymousRequests')

      ->json_is( { bothered => Mojo::JSON->true } );

      ->json_is( { bothered => Mojo::JSON->true } );

    $t->get_ok('/api/v1/contrib/testplugin/public/patrons/bother')

    $t->get_ok('/api/v1/contrib/testplugin/public/patrons/bother')

      ->status_is(200, 'Plugin routes not affected by RESTPublicAnonymousRequests')

      ->status_is(200, 'Plugin routes not affected by RESTPublicAnonymousRequests')

        }

        }

    });

    });

}

}

sub run_script {

sub run_script {

    $s->submit_form;

    $s->submit_form;

    # Get the interface in the correct language

    # Get the interface in the correct language

    $s->click( { href => '/mainpage.pl', main => 'onboarding-step5' } );

    $s->click( { href => '/mainpage.pl', main => 'onboarding-step5' } );

    my $RequireStrongPassword = C4::Context->preference('RequireStrongPassword');

    my $RequireStrongPassword = C4::Context->preference('RequireStrongPassword');

    my $minPasswordLength     = C4::Context->preference('minPasswordLength');

    my $minPasswordLength     = C4::Context->preference('minPasswordLength');

    # Installation complete

    # Installation complete

    $s->click( { href => '/installer/onboarding.pl', main => 'installer-step3' } );

    $s->click( { href => '/installer/onboarding.pl', main => 'installer-step3' } );

    # Create Koha administrator patron

    # Create Koha administrator patron

    $s->fill_form({ %$superlibrarian, password2 => $superlibrarian->{password} });

    $s->fill_form({ %$superlibrarian, password2 => $superlibrarian->{password} });

    $s->submit_form;

    $s->submit_form;

    # Create a new circulation rule

    # Create a new circulation rule

    # Keep default values

    # Keep default values

    $s->submit_form;

    $s->submit_form;

    # Get the interface in the correct language

    # Get the interface in the correct language

    $s->click( { href => '/mainpage.pl', main => 'onboarding-step5' } );

    $s->click( { href => '/mainpage.pl', main => 'onboarding-step5' } );

        $driver->get($mainpage);

        $driver->get($mainpage);

        like( $driver->get_title, qr(Log in to Koha), 'Hitting the main page should redirect to the login form');

        like( $driver->get_title, qr(Log in to Koha), 'Hitting the main page should redirect to the login form');

        fill_login_form($s);

        fill_login_form($s);

        like( $driver->get_title, qr(Koha staff interface), 'Patron with flags superlibrarian should be able to login' );

        like( $driver->get_title, qr(Koha staff interface), 'Patron with flags superlibrarian should be able to login' );

        $driver->get($s->base_url . q|members/two_factor_auth.pl|);

        $driver->get($s->base_url . q|members/two_factor_auth.pl|);

        like( $driver->get_title, qr(Error 404), 'Must be redirected to 404 is the pref is off' );

        like( $driver->get_title, qr(Error 404), 'Must be redirected to 404 is the pref is off' );

        $driver->get($s->base_url . q|members/two_factor_auth.pl|);

        $driver->get($s->base_url . q|members/two_factor_auth.pl|);

        like( $driver->get_title, qr(Two-factor authentication), 'Must be on the page with the pref on' );

        like( $driver->get_title, qr(Two-factor authentication), 'Must be on the page with the pref on' );

    subtest "Enforce 2FA setup on first login" => sub {

    subtest "Enforce 2FA setup on first login" => sub {

        plan tests => 7;

        plan tests => 7;

        # Make sure the send won't fail because of invalid email addresses

        # Make sure the send won't fail because of invalid email addresses

        $patron->library->set(

        $patron->library->set(

END {

END {

    $_->delete for @data_to_cleanup;

    $_->delete for @data_to_cleanup;

};

};

END {

END {

    unless ( @cleanup ) { say "WARNING: Cleanup failed!" }

    unless ( @cleanup ) { say "WARNING: Cleanup failed!" }

    $_->delete for @cleanup;

    $_->delete for @cleanup;

};

};

    my $table_id = "memberresultst";

    my $table_id = "memberresultst";

    $s->auth;

    $s->auth;

    my $PatronsPerPage = 15;

    my $PatronsPerPage = 15;

    $driver->get( $base_url . "/members/members-home.pl" );

    $driver->get( $base_url . "/members/members-home.pl" );

    my @adv_options = $driver->find_elements('//select[@id="searchfieldstype"]/option');

    my @adv_options = $driver->find_elements('//select[@id="searchfieldstype"]/option');

    is( scalar @adv_options, $nb_standard_fields + 1, 'All standard fields are searchable if DefaultPatronSearchFields not set. middle_name is there.');

    is( scalar @adv_options, $nb_standard_fields + 1, 'All standard fields are searchable if DefaultPatronSearchFields not set. middle_name is there.');

    my @filter_options = $driver->find_elements('//select[@id="searchfieldstype_filter"]/option');

    my @filter_options = $driver->find_elements('//select[@id="searchfieldstype_filter"]/option');

    is( scalar @filter_options, $nb_standard_fields + 1, 'All standard fields + middle_name are searchable by filter if DefaultPatronSearchFields not set');

    is( scalar @filter_options, $nb_standard_fields + 1, 'All standard fields + middle_name are searchable by filter if DefaultPatronSearchFields not set');

    is( $filter_options[0]->get_value(), 'standard', 'Standard filter uses hard coded value "standard" DefaultPatronSearchFields not set');

    is( $filter_options[0]->get_value(), 'standard', 'Standard filter uses hard coded value "standard" DefaultPatronSearchFields not set');

    $driver->get( $base_url . "/members/members-home.pl" );

    $driver->get( $base_url . "/members/members-home.pl" );

    @adv_options = $driver->find_elements('//select[@id="searchfieldstype"]/option');

    @adv_options = $driver->find_elements('//select[@id="searchfieldstype"]/option');

    is( scalar @adv_options, $nb_standard_fields, 'New option added when DefaultPatronSearchFields is populated with a field. Note that middle_name disappears, we do not want it if not part of DefaultPatronSearchFields');

    is( scalar @adv_options, $nb_standard_fields, 'New option added when DefaultPatronSearchFields is populated with a field. Note that middle_name disappears, we do not want it if not part of DefaultPatronSearchFields');

    @filter_options = $driver->find_elements('//select[@id="searchfieldstype_filter"]/option');

    @filter_options = $driver->find_elements('//select[@id="searchfieldstype_filter"]/option');

    is( scalar @filter_options, $nb_standard_fields, 'New filter option added when DefaultPatronSearchFields is populated with a field');

    is( scalar @filter_options, $nb_standard_fields, 'New filter option added when DefaultPatronSearchFields is populated with a field');

    is( $filter_options[0]->get_value(), 'standard', 'Standard filter uses value "standard"');

    is( $filter_options[0]->get_value(), 'standard', 'Standard filter uses value "standard"');

    $driver->get( $base_url . "/members/members-home.pl" );

    $driver->get( $base_url . "/members/members-home.pl" );

    @adv_options = $driver->find_elements('//select[@id="searchfieldstype"]/option');

    @adv_options = $driver->find_elements('//select[@id="searchfieldstype"]/option');

    @filter_options = $driver->find_elements('//select[@id="searchfieldstype_filter"]/option');

    @filter_options = $driver->find_elements('//select[@id="searchfieldstype_filter"]/option');

    is( scalar @filter_options, $nb_standard_fields, 'Invalid filter option not added when DefaultPatronSearchFields is populated with an invalid field');

    is( scalar @filter_options, $nb_standard_fields, 'Invalid filter option not added when DefaultPatronSearchFields is populated with an invalid field');

    # NOTE: We should probably ensure the bad field is removed from 'standard' search here, else searches are broken

    # NOTE: We should probably ensure the bad field is removed from 'standard' search here, else searches are broken

    $driver->get( $base_url . "/members/members-home.pl" );

    $driver->get( $base_url . "/members/members-home.pl" );

    $s->fill_form( { search_patron_filter => 'test_patron' } );

    $s->fill_form( { search_patron_filter => 'test_patron' } );

    $s->submit_form;

    $s->submit_form;

        plan tests => 7;

        plan tests => 7;

        $driver->get( $base_url . "/members/members-home.pl" );

        $driver->get( $base_url . "/members/members-home.pl" );

        $s->fill_form( { search_patron_filter => 'test_patron' } );

        $s->fill_form( { search_patron_filter => 'test_patron' } );

        $s->submit_form;

        $s->submit_form;

    subtest 'filter by date of birth' => sub {

    subtest 'filter by date of birth' => sub {

        plan tests => 7;

        plan tests => 7;

        # We have a patron with date of birth=1980-06-17 => formatted as 17/06/1980

        # We have a patron with date of birth=1980-06-17 => formatted as 17/06/1980

# It seems that we do not have enough records indexed with ES

# It seems that we do not have enough records indexed with ES

my $SearchEngine_value = C4::Context->preference('SearchEngine');

my $SearchEngine_value = C4::Context->preference('SearchEngine');

my $AudioAlerts_value = C4::Context->preference('AudioAlerts');

my $AudioAlerts_value = C4::Context->preference('AudioAlerts');

our @cleanup;

our @cleanup;

subtest 'OPAC - borrowernumber, branchcode and categorycode as html attributes' => sub {

subtest 'OPAC - borrowernumber, branchcode and categorycode as html attributes' => sub {

    my $original_SessionStorage = C4::Context->preference('SessionStorage');

    my $original_SessionStorage = C4::Context->preference('SessionStorage');

    for my $SessionStorage ( qw( memcached mysql tmp ) ) {

    for my $SessionStorage ( qw( memcached mysql tmp ) ) {

        for my $branchname (qw( Test1 Test2❤️ Test3ä )) {

        for my $branchname (qw( Test1 Test2❤️ Test3ä )) {

            my $library =

            my $library =

              Koha::Libraries->find($branchname) || $builder->build_object(

              Koha::Libraries->find($branchname) || $builder->build_object(

        }

        }

    }

    }

    push @cleanup, $item, $biblio, $patron, $patron->category, $patron->library;

    push @cleanup, $item, $biblio, $patron, $patron->category, $patron->library;

    push @cleanup, Koha::Libraries->find($_) for qw( Test1 Test2❤️ Test3ä );

    push @cleanup, Koha::Libraries->find($_) for qw( Test1 Test2❤️ Test3ä );

$driver->quit();

$driver->quit();

END {

END {

    $_->delete for @cleanup;

    $_->delete for @cleanup;

};

};

my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21';

my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21';

my $SearchEngine_value = C4::Context->preference('SearchEngine');

my $SearchEngine_value = C4::Context->preference('SearchEngine');

my $mock_zebra = t::lib::Mocks::Zebra->new(

my $mock_zebra = t::lib::Mocks::Zebra->new(

    {

    {

};

};

END {

END {

    $mock_zebra->cleanup if $mock_zebra;

    $mock_zebra->cleanup if $mock_zebra;

};

};

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

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

my $PatronSelfRegistration_value = C4::Context->preference('PatronSelfRegistration');

my $PatronSelfRegistration_value = C4::Context->preference('PatronSelfRegistration');

my $PatronSelfRegistrationDefaultCategory_value = C4::Context->preference('PatronSelfRegistrationDefaultCategory');

my $PatronSelfRegistrationDefaultCategory_value = C4::Context->preference('PatronSelfRegistrationDefaultCategory');

    plan tests => 2;

    plan tests => 2;

    my $default_category = $builder->build_object( { class => 'Koha::Patron::Categories' } );

    my $default_category = $builder->build_object( { class => 'Koha::Patron::Categories' } );

    $driver->get($opac_base_url . 'opac-memberentry.pl');

    $driver->get($opac_base_url . 'opac-memberentry.pl');

    like( $driver->get_title(), qr(Register a new account), );

    like( $driver->get_title(), qr(Register a new account), );

$driver->quit();

$driver->quit();

END {

END {

    $_->delete for @cleanup;

    $_->delete for @cleanup;

};

};

use Test::More tests => 8;

use Test::More tests => 8;

use C4::Context;

use C4::Context;

use Koha::Database;

use Koha::Database;

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

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

$schema->storage->txn_begin;

$schema->storage->txn_begin;

my $URLLinkText    = C4::Context->preference('URLLinkText');

my $URLLinkText    = C4::Context->preference('URLLinkText');

my $newURLLinkText = "newURLLinkText";

my $newURLLinkText = "newURLLinkText";

is( C4::Context->preference('URLLinkText'), $newURLLinkText, 'The pref should have been set correctly' );

is( C4::Context->preference('URLLinkText'), $newURLLinkText, 'The pref should have been set correctly' );

is( C4::Context->preference('URLLINKTEXT'), $URLLinkText, 'A pref name should be case insensitive');

is( C4::Context->preference('URLLINKTEXT'), $URLLinkText, 'A pref name should be case insensitive');

$ENV{OVERRIDE_SYSPREF_URLLinkText} = 'this is an override';

$ENV{OVERRIDE_SYSPREF_URLLinkText} = 'this is an override';

is( C4::Context->preference('IDoNotExist'), undef, 'Get a non-existent system preference should return undef');

is( C4::Context->preference('IDoNotExist'), undef, 'Get a non-existent system preference should return undef');

is( C4::Context->preference('IDoNotExist'), 'NonExistent', 'Test creation of non-existent system preference' );

is( C4::Context->preference('IDoNotExist'), 'NonExistent', 'Test creation of non-existent system preference' );

is(C4::Context->preference('testpreference'), undef, 'deleting preferences');

is(C4::Context->preference('testpreference'), undef, 'deleting preferences');

# Delete from the database, it should still be in cache

# Delete from the database, it should still be in cache

$dbh->do("DELETE FROM systempreferences WHERE variable='testpreference'");

$dbh->do("DELETE FROM systempreferences WHERE variable='testpreference'");

is(C4::Context->preference('testpreference'), 'def', 'caching preferences');

is(C4::Context->preference('testpreference'), 'def', 'caching preferences');

    Koha::Caches->flush_L1_caches;

    Koha::Caches->flush_L1_caches;

    # Don't Track

    # Don't Track

    $t->get_ok( $opac . $no_biblionumber )

    $t->get_ok( $opac . $no_biblionumber )

      ->status_is( 404, "404 for no biblionumber" );

      ->status_is( 404, "404 for no biblionumber" );

    $t->get_ok( $opac . $bad_biblionumber1 )

    $t->get_ok( $opac . $bad_biblionumber1 )

      ->status_is( 404, "404 for itemnumber with matching URI - pref off" );

      ->status_is( 404, "404 for itemnumber with matching URI - pref off" );

    # Track

    # Track

    $t->get_ok( $opac . $no_biblionumber )

    $t->get_ok( $opac . $no_biblionumber )

      ->status_is( 404, "404 for no biblionumber" );

      ->status_is( 404, "404 for no biblionumber" );

    $t->get_ok( $opac . $bad_biblionumber1 )

    $t->get_ok( $opac . $bad_biblionumber1 )

      ->status_is( 302, "302 for itemnumber with matching URI" );

      ->status_is( 302, "302 for itemnumber with matching URI" );

    # Track Anonymous

    # Track Anonymous

    $t->get_ok( $opac . $no_biblionumber )

    $t->get_ok( $opac . $no_biblionumber )

      ->status_is( 404, "404 for no biblionumber" );

      ->status_is( 404, "404 for no biblionumber" );

    $t->get_ok( $opac . $bad_biblionumber1 )

    $t->get_ok( $opac . $bad_biblionumber1 )