|
Lines 40-46
my $columns = C4::Templates::GetColumnDefs( $query );
Link Here
|
| 40 |
|
40 |
|
| 41 |
is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); |
41 |
is( ref( $columns ) eq 'HASH', 1, 'GetColumnDefs returns a hashref' ); |
| 42 |
# get the tables names, sorted |
42 |
# get the tables names, sorted |
| 43 |
my @keys = sort keys $columns; |
43 |
my @keys = sort keys %$columns; |
| 44 |
is( scalar @keys, 5, "GetColumnDefs correctly returns the 5 tables defined in columns.def" ); |
44 |
is( scalar @keys, 5, "GetColumnDefs correctly returns the 5 tables defined in columns.def" ); |
| 45 |
my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics'); |
45 |
my @tables = ( 'biblio', 'biblioitems', 'borrowers', 'items', 'statistics'); |
| 46 |
cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); |
46 |
cmp_deeply( \@keys, \@tables, "GetColumnDefs returns the expected tables"); |
| 47 |
- |
|
|