Bug 19788: Add a test

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/t/db_dependent/Context.t b/t/db_dependent/Context.t
index 5a75acd..cb7c94f 100755 (executable)
--- a/t/db_dependent/Context.t
+++ b/t/db_dependent/Context.t
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
 #!/usr/bin/perl
 

-use strict;
-use warnings;
+use Modern::Perl;

 
 use Test::More;
 use Test::MockModule;
 
 use Test::More;
 use Test::MockModule;


@@ -79,6 +78,7 @@ $schema->storage->debugfh( $trace );
 
 C4::Context->set_preference('SillyPreference', 'thing1');
 my $silly_preference = Koha::Config::SysPrefs->find('SillyPreference');
 
 C4::Context->set_preference('SillyPreference', 'thing1');
 my $silly_preference = Koha::Config::SysPrefs->find('SillyPreference');

+is( $silly_preference->variable, 'SillyPreference', 'set_preference should have kept the case sensitivity' );

 
 my $pref = C4::Context->preference("SillyPreference");
 is(C4::Context->preference("SillyPreference"), 'thing1', "Retrieved syspref (value='thing1') successfully with default behavior");
 
 my $pref = C4::Context->preference("SillyPreference");
 is(C4::Context->preference("SillyPreference"), 'thing1', "Retrieved syspref (value='thing1') successfully with default behavior");