use MARC::Record;
use C4::Biblio;
use C4::Items;
+use C4::Members;
BEGIN {
use FindBin;
use_ok('C4::Reserves');
}
+my $dbh = C4::Context->dbh;
+
+# Start transaction
+$dbh->{AutoCommit} = 0;
+$dbh->{RaiseError} = 1;
+
my $borrowers_count = 5;
# Setup Test------------------------
diag("Creating item instance for testing.");
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
-# Get a borrower
-my $dbh = C4::Context->dbh;
-my $query = "SELECT borrowernumber FROM borrowers LIMIT $borrowers_count";
-my $sth = $dbh->prepare($query);
-$sth->execute;
+# Create some borrowers
my @borrowernumbers;
-while ( my $row = $sth->fetchrow_hashref ) {
- push( @borrowernumbers, $row->{'borrowernumber'} );
+foreach (1..$borrowers_count) {
+ my $borrowernumber = AddMember(
+ firstname => 'my firstname',
+ surname => 'my surname ' . $_,
+ categorycode => 'S',
+ branchcode => 'CPL',
+ );
+ push @borrowernumbers, $borrowernumber;
}
my $biblionumber = $bibnum;
$reserve = GetReserve( $reserve->{'reserve_id'} );
ok( $reserve->{'priority'} eq '5', "Test AlterPriority(), move to bottom" );
-# Delete the reserves
-diag("Deleting holds.");
-$dbh->do("DELETE FROM reserves WHERE biblionumber = ?", undef, ( $biblionumber ) );
-
-# Delete item.
-diag("Deleting item testing instance.");
-DelItem($dbh, $bibnum, $itemnumber);
-
-# Delete helper Biblio.
-diag("Deleting biblio testing instance.");
-DelBiblio($bibnum);
-
# Helper method to set up a Biblio.
sub create_helper_biblio {
my $bib = MARC::Record->new();