Bug 20144: [sql_modes] Remove useless ORDER BY clauses in tests

[koha.git] / t / db_dependent / Context.t

diff --git a/t/db_dependent/Context.t b/t/db_dependent/Context.t
index b5a050f..cb7c94f 100755 (executable)
--- 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;
@@ -39,6 +38,10 @@ C4::Context->clear_syspref_cache();
 $OPACBaseURL = C4::Context->preference('OPACBaseURL');
 is($OPACBaseURL,'http://junk2','OPACBaseURL saved with http:// as specified');
 
+C4::Context->set_preference('OPACBaseURL', '');
+$OPACBaseURL = C4::Context->preference('OPACBaseURL');
+is($OPACBaseURL,'','OPACBaseURL saved empty as specified');
+
 C4::Context->set_preference('SillyPreference','random');
 C4::Context->clear_syspref_cache();
 my $SillyPeference = C4::Context->preference('SillyPreference');
@@ -63,7 +66,7 @@ foreach (sort @keys) {
 ok($config = $koha->{config}, 'Getting $koha->{config} ');
 
 # Testing syspref caching
-t::lib::Mocks::mock_dbh;
+use Test::DBIx::Class;
 
 my $history;
 
@@ -75,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");
@@ -145,4 +149,3 @@ sub TransformVersionToNum {
     $version =~ s/XXX$/999/;
     return $version;
 }
-1;