From 99d9bcef7784e1e7adde3cfff098674919751408 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 6 Aug 2014 14:22:23 -0300 Subject: [PATCH] [PASSED QA] Bug 12716: unit tests for GetColumnDefs The introduced function gets tested. Signed-off-by: Aleisha Signed-off-by: Katrin Fischer --- t/Templates.t | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100755 t/Templates.t diff --git a/t/Templates.t b/t/Templates.t new file mode 100755 index 0000000..f50297b --- /dev/null +++ b/t/Templates.t @@ -0,0 +1,49 @@ +#!/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 CGI; + +use Test::More tests => 5; +use Test::Deep; + +BEGIN { + use_ok( 'C4::Templates' ); + can_ok( 'C4::Templates', + qw/ GetColumnDefs + getlanguagecookie + setlanguagecookie + themelanguage + gettemplate + _get_template_file + param + output /); +} + +my $query = CGI->new(); +my $columns = C4::Templates::GetColumnDefs( $query ); + +is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); +# get the tables names, sorted +my @keys = sort keys $columns; +is( scalar @keys, 5, "GetColumnDefs correctly returns the 5 tables defined in columns.def" ); +my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics'); +cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); + + +1; -- 1.9.1