## $Id: 21_tr_Common_SLV.t 247 2008-04-21 09:41:42Z rlinke $

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

my $name	=   "Common SLV";

# Taken from http://www.unhchr.ch/udhr/lang/slv.htm
my $input	=   "ker sta zanikanje in teptanje človekovih pravic " .
		    "pripeljala do barbarskih dejanj, žaljivih za " .
		    "človeško vest, in ker je bila stvaritev sveta, " .
		    "v katerem bi imeli vsi ljudje svobodo govora " .
		    "in verovanja in v katerem ne bi živeli v strahu " .
		    "in pomanjkanju, spoznana za najvišje prizadevanje " .
		    "človeštva;";
my $output_ok	=   "ker sta zanikanje in teptanje clovekovih pravic " .
		    "pripeljala do barbarskih dejanj, zaljivih za " .
		    "clovesko vest, in ker je bila stvaritev sveta, " .
		    "v katerem bi imeli vsi ljudje svobodo govora in " .
		    "verovanja in v katerem ne bi ziveli v strahu " .
		    "in pomanjkanju, spoznana za najvisje prizadevanje " .
		    "clovestva;";

my $all_caps	=   "KITAJSKA PUŠČAVSKA MAČKA";
my $all_caps_ok	=   "KITAJSKA PUSCAVSKA MACKA";


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");