View | Details | Raw Unified | Return to bug 19788
Collapse All | Expand All

(-)a/t/db_dependent/Context.t (-3 / +2 lines)
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
- 

Return to bug 19788