Bug 21912: (QA follow-up) Do not delete existing patrons
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> (cherry picked from commit8e6c789255) Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> (cherry picked from commit9b6b80488a) Signed-off-by: Jesse Maseto <jesse@bywatersolutions.com> (cherry picked from commit91fbe63d18) Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
parent
90fc1355d9
commit
f2922920e4
|
|
@ -260,7 +260,7 @@ subtest '->search() tests' => sub {
|
|||
|
||||
$schema->storage->txn_begin;
|
||||
|
||||
Koha::Patrons->delete;
|
||||
my $count = Koha::Patrons->search->count;
|
||||
|
||||
# Create 10 patrons
|
||||
foreach (1..10) {
|
||||
|
|
@ -270,7 +270,7 @@ subtest '->search() tests' => sub {
|
|||
my $patrons = Koha::Patrons->search();
|
||||
is( ref($patrons), 'Koha::Patrons', 'search in scalar context returns the Koha::Object-based type' );
|
||||
my @patrons = Koha::Patrons->search();
|
||||
is( scalar @patrons, 10, 'search in list context returns a list of objects' );
|
||||
is( scalar @patrons, $count + 10, 'search in list context returns a list of objects' );
|
||||
my $i = 0;
|
||||
foreach (1..10) {
|
||||
is( ref($patrons[$i]), 'Koha::Patron', 'Objects in the list have the singular type' );
|
||||
|
|
|
|||
Loading…
Reference in New Issue