use strict;
use Test::More tests => 3;
my $name = "Common POL";
# Taken from http://www.unhchr.ch/udhr/lang/pql.htm
my $input = "Nie wolno ponadto czynić żadnej różnicy w zależności " .
"od sytuacji politycznej, prawnej lub międzynarodowej " .
"kraju lub obszaru, do którego dana osoba przynależy, " .
"bez względu na to, czy dany kraj lub obszar jest " .
"niepodległy, czy też podlega systemowi powiernictwa, " .
"nie rządzi się samodzielnie lub jest w jakikolwiek " .
"sposób ograniczony w swej niepodległości.";
my $output_ok = "Nie wolno ponadto czynic zadnej roznicy w zaleznosci " .
"od sytuacji politycznej, prawnej lub miedzynarodowej " .
"kraju lub obszaru, do ktorego dana osoba przynalezy, " .
"bez wzgledu na to, czy dany kraj lub obszar jest " .
"niepodlegly, czy tez podlega systemowi powiernictwa, " .
"nie rzadzi sie samodzielnie lub jest w jakikolwiek " .
"sposob ograniczony w swej niepodleglosci.";
my $alphabet = "A Ą B C Ć D E Ę F G H I J K L Ł M N Ń O Ó P R S Ś T " .
"U W Y Z Ź Ż " .
"a ą b c ć d e ę f g h i j k l ł m n ń o ó p r s ś t " .
"u w y z ź ż";
my $alphabet_ok = "A A B C C D E E F G H I J K L L M N N O O P R S S T " .
"U W Y Z Z Z " .
"a a b c c d e e f g h i j k l l m n n o o p r s s t " .
"u w y z z z";
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($alphabet);
# 3
is($o, $alphabet_ok, "$name: alphabet");
# vim: sts=4