39 lines
748 B
Perl
Executable File
39 lines
748 B
Perl
Executable File
#!/usr/bin/perl
|
|
use Modern::Perl;
|
|
|
|
use C4::Members;
|
|
use C4::Circulation;
|
|
use Koha::Database;
|
|
use Koha::Patrons;
|
|
|
|
use Test::More tests => 2;
|
|
|
|
use_ok('Koha::Patron');
|
|
|
|
use t::lib::TestBuilder;
|
|
use t::lib::Mocks;
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
$schema->storage->txn_begin;
|
|
|
|
my $builder = t::lib::TestBuilder->new;
|
|
|
|
my $patron = $builder->build({ source => 'Borrower' });
|
|
my $profile = $builder->build({
|
|
source => 'HouseboundProfile',
|
|
value => {
|
|
borrowernumber => $patron->{borrowernumber},
|
|
},
|
|
});
|
|
|
|
# Test housebound_profile
|
|
is(
|
|
Koha::Patrons->find($patron->{borrowernumber})
|
|
->housebound_profile->frequency,
|
|
$profile->{frequency},
|
|
"Fetch housebound_profile."
|
|
);
|
|
|
|
$schema->storage->txn_rollback;
|
|
|