|
Lines 50-58
ok($config = $koha->{config}, 'Getting $koha->{config} ');
Link Here
|
| 50 |
|
50 |
|
| 51 |
diag "Testing syspref caching."; |
51 |
diag "Testing syspref caching."; |
| 52 |
|
52 |
|
| 53 |
my $dbh = C4::Context->dbh; |
|
|
| 54 |
$dbh->disconnect; |
| 55 |
|
| 56 |
my $module = new Test::MockModule('C4::Context'); |
53 |
my $module = new Test::MockModule('C4::Context'); |
| 57 |
$module->mock( |
54 |
$module->mock( |
| 58 |
'_new_dbh', |
55 |
'_new_dbh', |
|
Lines 64-70
$module->mock(
Link Here
|
| 64 |
); |
61 |
); |
| 65 |
|
62 |
|
| 66 |
my $history; |
63 |
my $history; |
| 67 |
$dbh = C4::Context->dbh; |
64 |
$dbh = C4::Context->dbh({ new => 1 }); |
| 68 |
|
65 |
|
| 69 |
$dbh->{mock_add_resultset} = [ ['value'], ['thing1'] ]; |
66 |
$dbh->{mock_add_resultset} = [ ['value'], ['thing1'] ]; |
| 70 |
$dbh->{mock_add_resultset} = [ ['value'], ['thing2'] ]; |
67 |
$dbh->{mock_add_resultset} = [ ['value'], ['thing2'] ]; |
| 71 |
- |
|
|