- 

#!/usr/bin/env perl

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 3;

use Template;

my $template = Template->new({

    PLUGIN_BASE => 'Koha::Template::Plugin',

});

my $tt = <<EOF;

[%- USE raw %]

[%- USE Filter %]

[%~ uri_url_filtered = BLOCK %][% uri | url ~%][% END -%]

[%- Filter.no_double_encode( uri_url_filtered ) | \$raw -%]

EOF

my $uri = 'https://www.foo.com/url?q=https://bar.org';

my $encoded_uri = 'https://www.foo.com/url?q=https%3A%2F%2Fbar.org';

my $output = '';

my $vars = { uri => $uri };

$template->process(\$tt, $vars, \$output);

is($output, $uri);

$output = '';

$vars = { uri => $encoded_uri };

$template->process(\$tt, $vars, \$output);

# uri filter would have generated https://www.foo.com/url?q=https%253A%252F%252Fbar.org

is($output, $encoded_uri, 'URI is not double encoded');