@@ -, +, @@ --- t/db_dependent/Context.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/t/db_dependent/Context.t +++ a/t/db_dependent/Context.t @@ -52,7 +52,8 @@ $dbh->rollback; ok($koha = C4::Context->new, 'C4::Context->new'); my @keys = keys %$koha; my $width = 0; -if (ok(@keys)) { +ok( @keys, 'Expecting entries in context hash' ); +if( @keys ) { $width = (sort {$a <=> $b} map {length} @keys)[-1]; } foreach (sort @keys) { @@ -64,7 +65,6 @@ foreach (sort @keys) { ok($config = $koha->{config}, 'Getting $koha->{config} '); # Testing syspref caching -use Test::DBIx::Class; my $schema = Koha::Database->new()->schema(); $schema->storage->debug(1); --