Bug 10289: (follow-up) wrap tests in transaction

Applying new standard method for handling tear-down
of test data.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Galen Charlton 2013-07-08 14:27:14 +00:00
parent 6e6c7608b7
commit 47cf3ec24d

View file

@ -14,6 +14,12 @@ BEGIN {
use_ok('C4::Reserves');
}
my $dbh = C4::Context->dbh;
# Start transaction
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
# Setup Test------------------------
# Helper biblio.
diag("\nCreating biblio instance for testing.");
@ -71,18 +77,3 @@ is($status, "Reserved", "CheckReserves Test 2");
($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode);
is($status, "Reserved", "CheckReserves Test 3");
# Teardown Test---------------------
# Delete item.
diag("Deleting item testing instance.");
my $dbh = C4::Context->dbh;
DelItem($dbh, $bibnum, $itemnumber);
# Delete helper Biblio.
diag("Deleting biblio testing instance.");
DelBiblio($bibnum);
# Delete borrower
diag("Deleting borrower.");
DelMember($borrowernumber);