|
Lines 1-7
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
use strict; |
3 |
use Modern::Perl; |
| 4 |
use warnings; |
|
|
| 5 |
|
4 |
|
| 6 |
use Test::More; |
5 |
use Test::More; |
| 7 |
use Test::MockModule; |
6 |
use Test::MockModule; |
|
Lines 79-84
$schema->storage->debugfh( $trace );
Link Here
|
| 79 |
|
78 |
|
| 80 |
C4::Context->set_preference('SillyPreference', 'thing1'); |
79 |
C4::Context->set_preference('SillyPreference', 'thing1'); |
| 81 |
my $silly_preference = Koha::Config::SysPrefs->find('SillyPreference'); |
80 |
my $silly_preference = Koha::Config::SysPrefs->find('SillyPreference'); |
|
|
81 |
is( $silly_preference->variable, 'SillyPreference', 'set_preference should have kept the case sensitivity' ); |
| 82 |
|
82 |
|
| 83 |
my $pref = C4::Context->preference("SillyPreference"); |
83 |
my $pref = C4::Context->preference("SillyPreference"); |
| 84 |
is(C4::Context->preference("SillyPreference"), 'thing1', "Retrieved syspref (value='thing1') successfully with default behavior"); |
84 |
is(C4::Context->preference("SillyPreference"), 'thing1', "Retrieved syspref (value='thing1') successfully with default behavior"); |
| 85 |
- |
|
|