Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 37898: Wrap Relationships.t inside a transaction

Browse source 
This tests leave data on the DB and need to be fixed. This patch does
that.

To test:
1. Run:
   $ ktd --shell
  k$ echo "SELECT COUNT(*) FROM borrowers \G" | koha-mysql kohadev
  k$ echo "SELECT COUNT(*) FROM borrower_relationships \G" | koha-mysql kohadev
2. Run:
  k$ prove t/db_dependent/Patron/Relationships.t
=> SUCCESS: Tests pass
3. Repeat 1
=> FAIL: Numbers don't match the original ones!
4. Apply this patch
5. Repeat 2 and 3
=> SUCCESS: Tests still pass!
=> SUCCESS: Numbers match!
6. Sign off :-D

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Tomás Cohen Arazi 2024-09-11 12:55:40 -03:00 committed by Martin Renvoize
parent e052614d7f
commit be0931fdf7
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 33 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
t/db_dependent/Patron/Relationships.t
View file

@ -20,6 +20,7 @@ use Modern::Perl;
use Test::More tests => 54;
use C4::Context;
use Koha::Database;
use t::lib::TestBuilder;
@ -30,57 +31,52 @@ BEGIN {
use_ok('Koha::Patron::Relationships');
}
my $schema = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new();
$schema->storage->txn_begin;
# Father
my $kyle = Koha::Patrons->find(
$builder->build(
{
source => 'Borrower',
value => {
firstname => 'Kyle',
surname => 'Hall',
}
my $kyle = $builder->build_object(
{
class => 'Koha::Patrons',
value => {
firstname => 'Kyle',
surname => 'Hall',
}
)->{borrowernumber}
}
);
# Mother
my $chelsea = Koha::Patrons->find(
$builder->build(
{
source => 'Borrower',
value => {
firstname => 'Chelsea',
surname => 'Hall',
}
my $chelsea = $builder->build_object(
{
class => 'Koha::Patrons',
value => {
firstname => 'Chelsea',
surname => 'Hall',
}
)->{borrowernumber}
}
);
# Children
my $daria = Koha::Patrons->find(
$builder->build(
{
source => 'Borrower',
value => {
firstname => 'Daria',
surname => 'Hall',
}
my $daria = $builder->build_object(
{
class => 'Koha::Patrons',
value => {
firstname => 'Daria',
surname => 'Hall',
}
)->{borrowernumber}
}
);
my $kylie = Koha::Patrons->find(
$builder->build(
{
source => 'Borrower',
value => {
firstname => 'Kylie',
surname => 'Hall',
}
my $kylie = $builder->build_object(
{
class => 'Koha::Patrons',
value => {
firstname => 'Kylie',
surname => 'Hall',
}
)->{borrowernumber}
}
);
Koha::Patron::Relationship->new({ guarantor_id => $kyle->id, guarantee_id => $daria->id, relationship => 'father' })->store();
@ -152,4 +148,4 @@ is( $sibling->firstname, 'Kylie', 'Sibling from scalar first name matches correc
is( $sibling->surname, 'Hall', 'Sibling from scalar surname matches correctly' );
is( $sibling->id, $kylie->id, 'Sibling from scalar patron id matches correctly' );
1;
$schema->storage->txn_rollback;