From c774898f506de46a555fce25e62c0f663171354d Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 14 May 2024 13:50:29 +0100 Subject: [PATCH] Bug 36815: Unit tests Add a pretty sparse integration test that relies on the default shipped sample_notices.yaml. This should catch if the format of that file changes, but it doesn't test any more than that. Signed-off-by: Emily Lamancusa Signed-off-by: Kyle M Hall --- t/db_dependent/Koha/Notice/Template.t | 65 +++++++++++++++++++++++++++ 1 file changed, 65 insertions(+) create mode 100755 t/db_dependent/Koha/Notice/Template.t diff --git a/t/db_dependent/Koha/Notice/Template.t b/t/db_dependent/Koha/Notice/Template.t new file mode 100755 index 00000000000..32c11e5c62f --- /dev/null +++ b/t/db_dependent/Koha/Notice/Template.t @@ -0,0 +1,65 @@ +#!/usr/bin/perl + +# Copyright 2024 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 + +use Modern::Perl; + +use Test::More tests => 2; + +use_ok('Koha::Notice::Template'); + +subtest 'get_default() tests' => sub { + plan tests => 1; + + my $module = 'circulation'; + my $code = 'CHECKINSLIP'; + my $mtt = 'print'; + my $lang = 'en'; + + my $template = Koha::Notice::Template->new( + { + module => $module, + code => $code, + message_transport_type => $mtt, + lang => $lang + } + ); + + my $sample = $template->get_default; + + # Expected content + my $expected_sample = '

[% branch.branchname %]

+Checked in items for [% borrower.title %] [% borrower.firstname %] [% borrower.initials %] [% borrower.surname %]
+([% borrower.cardnumber %])
+
+[% today | $KohaDates %]
+
+

Checked in today

+[% FOREACH checkin IN old_checkouts %] +[% SET item = checkin.item %] +

+[% item.biblio.title %]
+Barcode: [% item.barcode %]
+

+[% END %]'; + $expected_sample =~ s/\n/\r\n/g; + + is( $sample, $expected_sample, "Content retrieved correctly" ); +}; + +1; -- 2.45.2