5 use Test::More tests => 2;
11 use_ok('C4::Auth_with_cas');
14 my $opac_base_url = C4::Context->preference('OpacBaseURL');
15 my $query_string = 'ticket=foo&bar=baz';
17 $ENV{QUERY_STRING} = $query_string;
18 $ENV{SCRIPT_NAME} = '/cgi-bin/koha/opac-user.pl';
20 my $cgi = new CGI($query_string);
21 $cgi->delete('ticket');
23 # _url_with_get_params should return the URL without 'ticket' parameter since it
25 is(C4::Auth_with_cas::_url_with_get_params($cgi),
26 "$opac_base_url/cgi-bin/koha/opac-user.pl?bar=baz");