|
Lines 19-25
Link Here
|
| 19 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 20 |
|
20 |
|
| 21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
| 22 |
use Test::More tests => 3; |
22 |
use Test::More tests => 4; |
| 23 |
use C4::Context; |
23 |
use C4::Context; |
| 24 |
|
24 |
|
| 25 |
# Start transaction |
25 |
# Start transaction |
|
Lines 27-46
my $dbh = C4::Context->dbh;
Link Here
|
| 27 |
$dbh->{RaiseError} = 1; |
27 |
$dbh->{RaiseError} = 1; |
| 28 |
$dbh->{AutoCommit} = 0; |
28 |
$dbh->{AutoCommit} = 0; |
| 29 |
|
29 |
|
| 30 |
my $opacheader = C4::Context->preference('opacheader'); |
30 |
my $opacheader = C4::Context->preference('opacheader'); |
| 31 |
my $newopacheader = "newopacheader"; |
31 |
my $newopacheader = "newopacheader"; |
| 32 |
|
32 |
|
| 33 |
C4::Context->set_preference('OPACHEADER', $newopacheader); |
33 |
C4::Context->set_preference( 'OPACHEADER', $newopacheader ); |
| 34 |
ok(C4::Context->preference('opacheader') eq $newopacheader); |
34 |
is( C4::Context->preference('opacheader'), $newopacheader ); |
| 35 |
|
35 |
|
| 36 |
C4::Context->set_preference('opacheader', $opacheader); |
36 |
C4::Context->set_preference( 'opacheader', $opacheader ); |
| 37 |
ok(C4::Context->preference('OPACHEADER') eq $opacheader); |
37 |
is( C4::Context->preference('OPACHEADER'), $opacheader ); |
| 38 |
|
38 |
|
| 39 |
$ENV{OVERRIDE_SYSPREF_opacheader} = 'this is an override'; |
39 |
$ENV{OVERRIDE_SYSPREF_opacheader} = 'this is an override'; |
| 40 |
C4::Context->clear_syspref_cache(); |
40 |
C4::Context->clear_syspref_cache(); |
| 41 |
is(C4::Context->preference('opacheader'), |
41 |
is( |
| 42 |
'this is an override', |
42 |
C4::Context->preference('opacheader'), |
| 43 |
'system preference value overridden from environment' |
43 |
'this is an override', |
|
|
44 |
'system preference value overridden from environment' |
| 44 |
); |
45 |
); |
| 45 |
|
46 |
|
| 46 |
$dbh->rollback; |
47 |
C4::Context->set_preference( 'IDoNotExist', 'NonExistent' ); |
|
|
48 |
is( C4::Context->preference('IDoNotExist'), 'NonExistent', 'Test creation of non-existant system preferencer' ); |
| 47 |
- |
|
|