Bug 12918: fix failing test case
A bug in a test case causes test case failure. It also required a database, so I'm moving it out of the way. Test plan: 1) prove -v t/db_dependent/Templates.t -- bombs! 2) apply patch 3) prove -v t/db_dependent/Templates.t -- works! Signed-off-by: Mark Tompsett <mtompset@hotmail.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com> Good catch Robin, it didn't fail in Perl 5.18 so didn't notice the mistake. Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
parent
692e0572e1
commit
8a63c17f79
|
|
@ -40,7 +40,7 @@ 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;
|
||||
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");
|
||||
Loading…
Reference in New Issue