#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use Test::More;
use Test::Exception;

my $pkg1;
my $pkg2;

BEGIN {
    $pkg1 = 'Catmandu::Fix::uri_encode';
    use_ok $pkg1;
    $pkg2 = 'Catmandu::Fix::uri_decode';
    use_ok $pkg2;
}

my $obj  = {name => 'café'};
my $obj2 = {name => 'ὁ τῶν Πέρσων βασιλεύς'};
my $fixer1 = $pkg1->new('name');
my $fixer2 = $pkg2->new('name');

is_deeply $fixer2->fix($fixer1->fix($obj)), {name => "café"},
    "escape and unescape French";

is_deeply $fixer2->fix($fixer1->fix($obj2)),
    {name => "ὁ τῶν Πέρσων βασιλεύς"},
    "escape and unescape Greek";

done_testing;