#!/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;