Bug 30287: (follow-up) Unit test for html_content
This patch adds a unit test for the new `html_content` method introduced to Koha::Notice::Template in the previous patch. Test 1) Run the new unit test ;P Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de> (cherry picked from commitc260f4a374
) Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com> (cherry picked from commitf89d178b06
) Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
parent
93b98dda14
commit
87588c477c
1 changed files with 119 additions and 0 deletions
119
t/db_dependent/Koha/Notice/Message.t
Executable file
119
t/db_dependent/Koha/Notice/Message.t
Executable file
|
@ -0,0 +1,119 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# Copyright 2023 Koha Development team
|
||||
#
|
||||
# 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 C4::Letters qw( GetPreparedLetter EnqueueLetter );
|
||||
|
||||
use t::lib::Mocks;
|
||||
use t::lib::TestBuilder;
|
||||
|
||||
my $schema = Koha::Database->new->schema;
|
||||
my $builder = t::lib::TestBuilder->new;
|
||||
|
||||
subtest 'html_content() tests' => sub {
|
||||
plan tests => 2;
|
||||
|
||||
$schema->storage->txn_begin;
|
||||
|
||||
my $template = $builder->build_object(
|
||||
{
|
||||
class => 'Koha::Notice::Templates',
|
||||
value => {
|
||||
module => 'test',
|
||||
code => 'TEST',
|
||||
message_transport_type => 'email',
|
||||
is_html => '1',
|
||||
name => 'test notice template',
|
||||
title => '[% borrower.firstname %]',
|
||||
content => 'This is a test template using borrower [% borrower.id %]',
|
||||
branchcode => "",
|
||||
lang => 'default',
|
||||
}
|
||||
}
|
||||
);
|
||||
my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
|
||||
my $firstname = $patron->firstname;
|
||||
my $borrowernumber = $patron->id;
|
||||
|
||||
my $prepared_letter = GetPreparedLetter(
|
||||
(
|
||||
module => 'test',
|
||||
letter_code => 'TEST',
|
||||
tables => {
|
||||
borrowers => $patron->id,
|
||||
},
|
||||
)
|
||||
);
|
||||
|
||||
my $message_id = EnqueueLetter(
|
||||
{
|
||||
letter => $prepared_letter,
|
||||
borrowernumber => $patron->id,
|
||||
message_transport_type => 'email'
|
||||
}
|
||||
);
|
||||
|
||||
my $message = Koha::Notice::Messages->find($message_id);
|
||||
my $wrapped_compare = <<"WRAPPED";
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
||||
<html lang="en" xml:lang="en" xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head>
|
||||
<title>$firstname</title>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||||
|
||||
</head>
|
||||
<body>
|
||||
This is a test template using borrower $borrowernumber
|
||||
</body>
|
||||
</html>
|
||||
WRAPPED
|
||||
|
||||
is( $message->html_content, $wrapped_compare, "html_content returned the correct html wrapped letter" );
|
||||
|
||||
my $css_sheet = 'https://localhost/shiny.css';
|
||||
t::lib::Mocks::mock_preference( 'NoticeCSS', $css_sheet );
|
||||
|
||||
$wrapped_compare = <<"WRAPPED";
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
||||
<html lang="en" xml:lang="en" xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head>
|
||||
<title>$firstname</title>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||||
<link rel="stylesheet" type="text/css" href="$css_sheet">
|
||||
</head>
|
||||
<body>
|
||||
This is a test template using borrower $borrowernumber
|
||||
</body>
|
||||
</html>
|
||||
WRAPPED
|
||||
|
||||
is(
|
||||
$message->html_content, $wrapped_compare,
|
||||
"html_content returned the correct html wrapped letter including stylesheet"
|
||||
);
|
||||
|
||||
$schema->storage->txn_rollback;
|
||||
};
|
||||
|
||||
1;
|
Loading…
Reference in a new issue