gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 13515: Add unit tests 

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 11b9bb3da9)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Alex Arnaud 2018-12-26 17:44:39 +01:00 committed by Martin Renvoize
parent a224d0598e
commit b5061a7319
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
t/db_dependent/Patron/Messages.t Normal file
View File

@ -0,0 +1,50 @@
#!/usr/bin/perl
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, see <http://www.gnu.org/licenses>.
#
use Modern::Perl;
use Test::More tests => 1;
use Koha::Patrons;
use Koha::Patron::Messages;
use t::lib::TestBuilder;
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
my $builder = t::lib::TestBuilder->new;
subtest 'Delete a patron having messages' => sub {
plan tests => 2;
my $patron = $builder->build({ source => 'Borrower' });
my $message = $builder->build({
source => 'Message',
value => {
borrowernumber => $patron->{borrowernumber},
message => 'This is a message.'
}
});
is(Koha::Patron::Messages->find($message->{message_id})->message, 'This is a message.', 'Got the right message');
my $patron_to_delete = Koha::Patrons->find( $patron->{borrowernumber} );
$patron_to_delete->move_to_deleted;
$patron_to_delete->delete;
is(Koha::Patron::Messages->find($message->{message_id}), undef, 'Message is deleted');
};
$schema->storage->txn_rollback;