use Modern::Perl;
use t::lib::TestBuilder;
use C4::Members;

my $dbh = C4::Context->dbh;
$dbh->{AutoCommit} = 0;

my $builder = t::lib::TestBuilder->new();
my $category = $builder->build({ source => 'Category' });
my $patron = $builder->build({ source => 'Borrower', value => { categorycode => $category->{categorycode} } });

my $member = C4::Members::GetMember( borrowernumber => $patron->{borrowernumber} );
say $category->{categorycode};
say $member->{categorycode};
