## $Id: 16_tr_Common_CES.t 186 2008-03-31 09:42:34Z rlinke $

use strict;
use Test::More tests => 3;

my $name	=   "Common CES";

# Taken from http://www.unhchr.ch/udhr/lang/czc.htm
my $input	=   "Žádný rozdíl nebude dále činěn z důvodu politického, " .
		    "právního nebo mezinárodního postavení země nebo " .
		    "území, k nimž určitá osoba přísluší, ať jde o zemi " .
		    "nebo území nezávislé nebo pod poručenstvím, " .
		    "nesamosprávné nebo podrobené jakémukoli jinému " .
		    "omezení suverenity.";
my $output_ok	=   "Zadny rozdil nebude dale cinen z duvodu politickeho, " .
		    "pravniho nebo mezinarodniho postaveni zeme nebo " .
		    "uzemi, k nimz urcita osoba prislusi, at jde o zemi " .
		    "nebo uzemi nezavisle nebo pod porucenstvim, " .
		    "nesamospravne nebo podrobene jakemukoli jinemu " .
		    "omezeni suverenity.";

my $all_caps	=   "DĚJSTVÍ PRVNÍ";
my $all_caps_ok	=   "DEJSTVI PRVNI";


use Lingua::Translit;

my $tr = new Lingua::Translit($name);


my $output = $tr->translit($input);

# 1
is($tr->can_reverse(), 0, "$name: not reversible");

# 2
is($output, $output_ok, "$name: UDOHR transliteration");

my $o = $tr->translit($all_caps);

# 3
is($o, $all_caps_ok, "$name: all caps");