|
Lines 52-58
$dbh->rollback;
Link Here
|
| 52 |
ok($koha = C4::Context->new, 'C4::Context->new'); |
52 |
ok($koha = C4::Context->new, 'C4::Context->new'); |
| 53 |
my @keys = keys %$koha; |
53 |
my @keys = keys %$koha; |
| 54 |
my $width = 0; |
54 |
my $width = 0; |
| 55 |
if (ok(@keys)) { |
55 |
ok( @keys, 'Expecting entries in context hash' ); |
|
|
56 |
if( @keys ) { |
| 56 |
$width = (sort {$a <=> $b} map {length} @keys)[-1]; |
57 |
$width = (sort {$a <=> $b} map {length} @keys)[-1]; |
| 57 |
} |
58 |
} |
| 58 |
foreach (sort @keys) { |
59 |
foreach (sort @keys) { |
|
Lines 64-70
foreach (sort @keys) {
Link Here
|
| 64 |
ok($config = $koha->{config}, 'Getting $koha->{config} '); |
65 |
ok($config = $koha->{config}, 'Getting $koha->{config} '); |
| 65 |
|
66 |
|
| 66 |
# Testing syspref caching |
67 |
# Testing syspref caching |
| 67 |
use Test::DBIx::Class; |
|
|
| 68 |
|
68 |
|
| 69 |
my $schema = Koha::Database->new()->schema(); |
69 |
my $schema = Koha::Database->new()->schema(); |
| 70 |
$schema->storage->debug(1); |
70 |
$schema->storage->debug(1); |
| 71 |
- |
|
|