From 7f0068697b80c07d88cced45f40d78b1cc066963 Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Wed, 26 Dec 2018 17:44:39 +0100 Subject: [PATCH] Bug 13515: Add unit tests Content-Type: text/plain; charset=utf-8 Signed-off-by: Marcel de Rooy --- t/db_dependent/Patron/Messages.t | 50 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 t/db_dependent/Patron/Messages.t diff --git a/t/db_dependent/Patron/Messages.t b/t/db_dependent/Patron/Messages.t new file mode 100644 index 0000000000..0f09959982 --- /dev/null +++ b/t/db_dependent/Patron/Messages.t @@ -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 . +# +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; \ No newline at end of file -- 2.11.0