From 1f827fe30887efc6d8562b7bf9315fbe7b9ae08b Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 2 Feb 2017 08:40:58 +0100 Subject: [PATCH] Bug 17982: Expose wrong use of uniq Content-Type: text/plain; charset=utf-8 This test should fail without the patch fixing the uniq calls. Signed-off-by: Marcel de Rooy --- t/db_dependent/Templates.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Templates.t b/t/db_dependent/Templates.t index 236bd1e..5c3b7c8 100755 --- a/t/db_dependent/Templates.t +++ b/t/db_dependent/Templates.t @@ -19,8 +19,11 @@ use Modern::Perl; use CGI; -use Test::More tests => 5; +use Test::More tests => 6; use Test::Deep; +use Test::MockModule; + +use t::lib::Mocks; BEGIN { use_ok( 'C4::Templates' ); @@ -45,5 +48,15 @@ is( scalar @keys, 6, "GetColumnDefs correctly returns the 5 tables defined in co my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics', 'subscription'); cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); +subtest 'Testing themelanguage for unique themes (BZ 17982)' => sub { + plan tests => 1; + + t::lib::Mocks::mock_preference('template', 'prog'); + my $module_language = Test::MockModule->new('C4::Languages'); + $module_language->mock( 'getlanguage', sub { return 'en'; } ); + + # This only triggers the first uniq but that is sufficient for now + cmp_deeply( ( C4::Templates::themelanguage( C4::Context->config('intrahtdocs'), 'about.tt' , 'intranet', 'fake_cgi' ) )[2], [ 'prog' ], 'We only expect one prog here' ); +}; 1; -- 2.1.4