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