Browse Source

Bug 13507: (regression test) Intranet URL returned by C4::Auth_with_cas::_url_with_get_params

C4::Auth_with_cas::_url_with_get_params should return the right
URL for intranet.

Signed-off-by: Koha Team AMU <koha.aixmarseille@gmail.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
Edit: added a proper commit message. Sort of :-P
3.20.x
Matthias Meusburger 7 years ago
committed by Tomas Cohen Arazi
parent
commit
c3ff4298fc
  1. 13
      t/db_dependent/Auth_with_cas.t

13
t/db_dependent/Auth_with_cas.t

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 3;
use Test::More tests => 4;
use CGI;
use C4::Context;
@ -39,8 +39,10 @@ $dbh->{ AutoCommit } = 0;
$dbh->{ RaiseError } = 1;
C4::Context->set_preference('OPACBaseURL','localhost');
C4::Context->set_preference('staffClientBaseURL','localhost:8080');
my $opac_base_url = C4::Context->preference('OpacBaseURL');
my $staff_base_url = C4::Context->preference('staffClientBaseURL');
my $query_string = 'ticket=foo&bar=baz';
$ENV{QUERY_STRING} = $query_string;
@ -50,10 +52,17 @@ my $cgi = new CGI($query_string);
$cgi->delete('ticket');
# _url_with_get_params tests
is(C4::Auth_with_cas::_url_with_get_params($cgi),
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)");
# intranet url test
is(C4::Auth_with_cas::_url_with_get_params($cgi, 'intranet'),
"$staff_base_url?bar=baz",
"Intranet URL should be returned when using intranet login (Bug 13507)");
$dbh->rollback;
1;

Loading…
Cancel
Save