Bug 17770: Improve perlcritic level

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

diff --git a/t/db_dependent/Auth_with_cas.t b/t/db_dependent/Auth_with_cas.t
index eb359a9..d15bf5e 100755 (executable)
--- a/t/db_dependent/Auth_with_cas.t
+++ b/t/db_dependent/Auth_with_cas.t
@@ -20,6 +20,7 @@ use Modern::Perl;
 use Test::More tests => 4;
 use CGI;
 
+use t::lib::Mocks;
 use C4::Context;
 
 BEGIN {
@@ -38,8 +39,9 @@ my $dbh = C4::Context->dbh;
 $dbh->{ AutoCommit } = 0;
 $dbh->{ RaiseError } = 1;
 
-C4::Context->set_preference('OPACBaseURL','localhost');
-C4::Context->set_preference('staffClientBaseURL','localhost:8080');
+C4::Context->disable_syspref_cache();
+t::lib::Mocks::mock_preference('OPACBaseURL','http://localhost');
+t::lib::Mocks::mock_preference('staffClientBaseURL','http://localhost:8080');
 
 my $opac_base_url = C4::Context->preference('OpacBaseURL');
 my $staff_base_url = C4::Context->preference('staffClientBaseURL');
@@ -56,13 +58,13 @@ is(C4::Auth_with_cas::_url_with_get_params($cgi, 'opac'),
     "$opac_base_url/cgi-bin/koha/opac-user.pl?bar=baz",
    "_url_with_get_params should return URL without deleted parameters (Bug 12398)");
 
+$ENV{SCRIPT_NAME} = '/cgi-bin/koha/circ/circulation-home.pl';
 # intranet url test
 is(C4::Auth_with_cas::_url_with_get_params($cgi, 'intranet'),
-    "$staff_base_url?bar=baz",
+    "$staff_base_url/cgi-bin/koha/circ/circulation-home.pl?bar=baz",
    "Intranet URL should be returned when using intranet login (Bug 13507)");
 
 
 
 $dbh->rollback;
 
-1;