From bb51b7447fcd7592e683648f4854c15f26a57eb5 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Sun, 29 Jan 2017 15:52:22 +0100 Subject: [PATCH] Bug 18010: Unit test for gettemplate A trivial test, similar to the ones in Auth.t. Without the check in gettemplate (added in the second patch), the passwd file will be exposed and the test fails. Test plan: Run t/db_dependent/Templates.t without second patch. The two tests in the last subtest should fail. Signed-off-by: Marcel de Rooy Signed-off-by: Chris Cormack Signed-off-by: Jonathan Druart Signed-off-by: Brendan A Gallagher (cherry picked from commit 5508897d5a2b73c30d50fed26a6bfed62bf49398) Signed-off-by: Katrin Fischer Conflicts: t/db_dependent/Templates.t --- t/db_dependent/Templates.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Templates.t b/t/db_dependent/Templates.t index 236bd1e637..852884b942 100755 --- a/t/db_dependent/Templates.t +++ b/t/db_dependent/Templates.t @@ -19,8 +19,12 @@ use Modern::Perl; use CGI; -use Test::More tests => 5; +use Test::More tests => 6; use Test::Deep; +use Test::MockModule; +use Test::Warn; + +use t::lib::Mocks; BEGIN { use_ok( 'C4::Templates' ); @@ -46,4 +50,12 @@ my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics', 'sub cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); +subtest 'Testing gettemplate' => sub { + plan tests => 2; + + my $template; + warning_like { eval { $template = C4::Templates::gettemplate( '/etc/passwd', 'opac', CGI->new, 1 ) }; warn $@ if $@; } qr/bad template/, 'Bad template check'; + is( $template ? $template->output: '', '', 'Check output' ); +}; + 1; -- 2.39.5