9 use Test::More tests => 2;
11 use_ok('Koha::Patron');
13 use t::lib::TestBuilder;
16 my $schema = Koha::Database->new->schema;
17 $schema->storage->txn_begin;
19 my $builder = t::lib::TestBuilder->new;
21 my $patron = $builder->build({ source => 'Borrower' });
22 my $profile = $builder->build({
23 source => 'HouseboundProfile',
25 borrowernumber => $patron->{borrowernumber},
29 # Test housebound_profile
31 Koha::Patrons->find($patron->{borrowernumber})
32 ->housebound_profile->frequency,
33 $profile->{frequency},
34 "Fetch housebound_profile."
37 $schema->storage->txn_rollback;