Attachment 36317 Details for Bug 13507 – Bug 13507 [Follow-up] : Add unit test.

[patch] Bug 13507 [Follow-up] : Add unit test.

Bug-13507-Follow-up--Add-unit-test.patch (text/plain), 1.62 KB, created by Matthias Meusburger on 2015-03-02 14:23:10 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Matthias Meusburger

Created: 2015-03-02 14:23:10 UTC

Size: 1.62 KB

patch

obsolete

>From ca73b6be8707fd4780a802da0a1a36b565376861 Mon Sep 17 00:00:00 2001
>From: Matthias Meusburger <matthias.meusburger@biblibre.com>
>Date: Fri, 2 Jan 2015 16:47:40 +0100
>Subject: [PATCH] Bug 13507 [Follow-up] : Add unit test.
>
>---
> t/db_dependent/Auth_with_cas.t |   13 +++++++++++--
> 1 file changed, 11 insertions(+), 2 deletions(-)
>
>diff --git a/t/db_dependent/Auth_with_cas.t b/t/db_dependent/Auth_with_cas.t
>index 8e0f783..eb359a9 100755
>--- a/t/db_dependent/Auth_with_cas.t
>+++ b/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;
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 13507: 34906 | 34907 | 36316 | 36317 | 36321 | 36339 | 36341 | 36348 | 36349 | 36671 | 36672 | 37431