use strict;
require 5.008;
use utf8;
use Test::More tests => 3;
my $name = "Streamlined System BUL";
# Taken from http://www.unhchr.ch/udhr/lang/blg.htm
my $udohr_cyr = "Като взе предвид, че пренебрегването и неуважаването " .
"на правата на човека доведоха до варварски деяния, " .
"които потресоха съвестта на човечеството, и че ".
"създаването на един свят, в който хората ще се радват ".
"на свобода на словото и убежденията си и ще бъдат " .
"свободни от страх и лишения бе провъзгласено за " .
"най-съкровения стремеж на човека,";
my $udohr_lat = "Kato vze predvid, che prenebregvaneto i " .
"neuvazhavaneto na pravata na choveka dovedoha do " .
"varvarski deyaniya, koito potresoha savestta na " .
"chovechestvoto, i che sazdavaneto na edin svyat, v " .
"koyto horata shte se radvat na svoboda na slovoto " .
"i ubezhdeniyata si i shte badat svobodni ot strah i " .
"lisheniya be provazglaseno za nay-sakroveniya " .
"stremezh na choveka,";
my $all_caps = "ОБЩОТО , ВСЕОБЩА , ДЕКЛАРАЦЯ , ПРЕАМБЮЛ , ЧОВЕКА" .
" --- Член, Живопис, Шоуто, Южна Америка";
my $all_caps_ok = "OBSHTOTO , VSEOBSHTA , DEKLARATSYA , PREAMBYUL , " .
"CHOVEKA --- Chlen, Zhivopis, Shouto, Yuzhna Amerika";
use Lingua::Translit;
my $tr = new Lingua::Translit($name);
# 1
is($tr->can_reverse(), 0, "$name: not reversible");
my $o = $tr->translit($udohr_cyr);
# 2
is($o, $udohr_lat, "$name: UDOHR transliteration");
$o = $tr->translit($all_caps);
# 3
is($o, $all_caps_ok, "$name: all caps");