X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FLanguages.t;h=14c5d2866d8c73170c084f1b90263503a72d8717;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=14b84135bbae1314f5484912bf2fb4f21d3da680;hpb=b168f4a2e9a03ed56ce857353d4dde940980caba;p=srvgit

diff --git a/t/Languages.t b/t/Languages.t
old mode 100644
new mode 100755
index 14b84135bb..14c5d2866d
--- a/t/Languages.t
+++ b/t/Languages.t
@@ -24,21 +24,21 @@ use CGI qw ( -utf8 );
 use Koha::Cache::Memory::Lite;
 
 BEGIN {
-    use_ok('C4::Languages');
+    use_ok('C4::Languages', qw( getlanguage ));
 }
 
 my @languages = (); # stores the list of active languages
                     # for the syspref mock
 my $return_undef = 0;
 
-my $module_context = new Test::MockModule('C4::Context');
+my $module_context = Test::MockModule->new('C4::Context');
 
 $module_context->mock(
     preference => sub {
         my ($self, $pref) = @_;
         if ($return_undef) {
             return;
-        } elsif ($pref =~ /language/) {
+        } elsif ($pref eq 'language' || $pref eq 'OPACLanguages') {
             return join ',', @languages;
         } else {
             return 'XXX';