t/db_dependent/Auth_with_cas.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 2;
   6 use CGI;
   7
   8 use C4::Context;
   9
  10 BEGIN {
  11         use_ok('C4::Auth_with_cas');
  12 }
  13
  14 my $opac_base_url = C4::Context->preference('OpacBaseURL');
  15 my $query_string = 'ticket=foo&bar=baz';
  16
  17 $ENV{QUERY_STRING} = $query_string;
  18 $ENV{SCRIPT_NAME} = '/cgi-bin/koha/opac-user.pl';
  19
  20 my $cgi = new CGI($query_string);
  21 $cgi->delete('ticket');
  22
  23 # _url_with_get_params should return the URL without 'ticket' parameter since it
  24 # has been deleted.
  25 is(C4::Auth_with_cas::_url_with_get_params($cgi),
  26     "$opac_base_url/cgi-bin/koha/opac-user.pl?bar=baz");