@@ -, +, @@ --- t/db_dependent/Patrons.t | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) --- a/t/db_dependent/Patrons.t +++ a/t/db_dependent/Patrons.t @@ -30,17 +30,15 @@ BEGIN { } # Start transaction -my $dbh = C4::Context->dbh; -$dbh->{AutoCommit} = 0; -$dbh->{RaiseError} = 1; -$dbh->do("DELETE FROM issues"); -$dbh->do("DELETE FROM borrowers"); - -my $categorycode = - Koha::Database->new()->schema()->resultset('Category')->first() - ->categorycode(); -my $branchcode = - Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode(); +my $database = Koha::Database->new(); +my $schema = $database->schema(); +$schema->storage->txn_begin(); + +$schema->resultset('Issue')->delete_all(); +$schema->resultset('Borrower')->delete_all(); + +my $categorycode = $schema->resultset('Category')->first()->categorycode(); +my $branchcode = $schema->resultset('Branch')->first()->branchcode(); my $b1 = Koha::Patron->new( { @@ -50,6 +48,7 @@ my $b1 = Koha::Patron->new( } ); $b1->store(); +my $now = dt_from_string; my $b2 = Koha::Patron->new( { surname => 'Test 2', @@ -72,13 +71,13 @@ $b3->store(); my $b1_new = Koha::Patrons->find( $b1->borrowernumber() ); is( $b1->surname(), $b1_new->surname(), "Found matching patron" ); isnt( $b1_new->updated_on, undef, "borrowers.updated_on should be set" ); -is( dt_from_string($b1_new->updated_on), dt_from_string, "borrowers.updated_on should have been set to now on creating" ); +is( dt_from_string($b1_new->updated_on), $now, "borrowers.updated_on should have been set to now on creating" ); my $b3_new = Koha::Patrons->find( $b3->borrowernumber() ); is( dt_from_string($b3_new->updated_on), $three_days_ago, "borrowers.updated_on should have been kept to what we set on creating" ); -$b3_new->set({ surname => 'another surname for Test 3' }); +$b3_new->set({ firstname => 'Some first name for Test 3' })->store(); $b3_new = Koha::Patrons->find( $b3->borrowernumber() ); -is( dt_from_string($b1_new->updated_on), dt_from_string, "borrowers.updated_on should have been set to now on updating" ); +is( dt_from_string($b3_new->updated_on), dt_from_string, "borrowers.updated_on should have been set to now on updating" ); my @patrons = Koha::Patrons->search( { branchcode => $branchcode } ); is( @patrons, 3, "Found 3 patrons with Search" ); @@ -104,4 +103,6 @@ foreach my $b ( $patrons->as_list() ) { is( $b->categorycode(), $categorycode, "Iteration returns a patron object" ); } +$schema->storage->txn_rollback(); + 1; --