From b18b48e51325d816a1bbf810d1d08f1e7abba1c4 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Wed, 30 Jul 2014 14:02:11 +0200 Subject: [PATCH] Bug 12398: Add test for C4::Auth_with_cas::_url_with_get_params Run `prove t/db_dependent/Auth_with_cas.t` to run the test Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi --- t/db_dependent/Auth_with_cas.t | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/t/db_dependent/Auth_with_cas.t b/t/db_dependent/Auth_with_cas.t index 77dd21f024..1c8c2efaaa 100755 --- a/t/db_dependent/Auth_with_cas.t +++ b/t/db_dependent/Auth_with_cas.t @@ -1,14 +1,26 @@ #!/usr/bin/perl -# -# This Koha test module is a stub! -# Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; -use Test::More tests => 1; +use Test::More tests => 2; +use CGI; + +use C4::Context; BEGIN { use_ok('C4::Auth_with_cas'); } +my $opac_base_url = C4::Context->preference('OpacBaseURL'); +my $query_string = 'ticket=foo&bar=baz'; + +$ENV{QUERY_STRING} = $query_string; +$ENV{SCRIPT_NAME} = '/cgi-bin/koha/opac-user.pl'; + +my $cgi = new CGI($query_string); +$cgi->delete('ticket'); + +# _url_with_get_params should return the URL without 'ticket' parameter since it +# has been deleted. +is(C4::Auth_with_cas::_url_with_get_params($cgi), + "$opac_base_url/cgi-bin/koha/opac-user.pl?bar=baz"); -- 2.39.5