Lines 43-52
my $columns = C4::Templates::GetColumnDefs( $query );
Link Here
|
43 |
|
43 |
|
44 |
is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); |
44 |
is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); |
45 |
# get the tables names, sorted |
45 |
# get the tables names, sorted |
46 |
my @keys = sort keys %$columns; |
46 |
my @keys = sort keys %{$columns}; |
47 |
is( scalar @keys, 6, "GetColumnDefs correctly returns the 5 tables defined in columns.def" ); |
47 |
is( scalar @keys, 6, 'GetColumnDefs correctly returns the 5 tables defined in columns.def' ); |
48 |
my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics', 'subscription'); |
48 |
my @tables = qw( biblio biblioitems borrowers items statistics subscription ); |
49 |
cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); |
49 |
cmp_deeply( \@keys, \@tables, 'GetColumnDefs returns the expected tables'); |
50 |
|
50 |
|
51 |
subtest 'Testing themelanguage for unique themes (BZ 17982)' => sub { |
51 |
subtest 'Testing themelanguage for unique themes (BZ 17982)' => sub { |
52 |
plan tests => 1; |
52 |
plan tests => 1; |
53 |
- |
|
|