#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::uri_decode';
use_ok $pkg;
}
is_deeply $pkg->new('name')->fix({name => 'caf%C3%A9'}), {name => "café"},
"unescape utf8 string from French";
is_deeply $pkg->new('name')->fix(
{
name =>
'%E1%BD%81%20%CF%84%E1%BF%B6%CE%BD%20%CE%A0%CE%AD%CF%81%CF%83%CF%89%CE%BD%20%CE%B2%CE%B1%CF%83%CE%B9%CE%BB%CE%B5%CF%8D%CF%82'
}
),
{name => "ὁ τῶν Πέρσων βασιλεύς"},
"unescape utf8 string from Greek";
done_testing;