From 21cd52e799e2f92e3911c88622616f7b80433bd3 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 19 Dec 2017 11:56:07 -0300 Subject: [PATCH] Bug 19788: Add a test --- t/db_dependent/Context.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Context.t b/t/db_dependent/Context.t index 5a75acd315..cb7c94f5fc 100755 --- a/t/db_dependent/Context.t +++ b/t/db_dependent/Context.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; 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'); +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"); -- 2.11.0