1use strict; 2use Test::More tests => 4; 3 4my $name = "GOST 7.79 RUS OLD"; 5my $reversible = 0; 6 7# Taken from http://www.ohchr.org/EN/UDHR/Pages/Language.aspx?LangID=rus 8my $input = "№1 " . 9 "Все люди рождаются свободными и равными в своем " . 10 "достоинстве и правах. Они наделены разумом и " . 11 "совестью и должны поступать в отношении друг друга " . 12 "в духе братства."; 13my $output_ok = "#1 " . 14 "Vse lyudi rozhdayutsya svobodny'mi i ravny'mi v " . 15 "svoem dostoinstve i pravax. Oni nadeleny' razumom i " . 16 "sovest`yu i dolzhny' postupat` v otnoshenii drug " . 17 "druga v duxe bratstva."; 18 19my $context = "публикация - Властелин колец - Царства - " . 20 "ЦИК СССР - " . 21 "ЯЗЫК - ВООБЩЕ - вообще - Частной переписке"; 22my $context_ok = "publikaciya - Vlastelin kolecz - Czarstva - " . 23 "CIK SSSR - YAZY'K - VOOBSHHE - voobshhe - Chastnoj " . 24 "perepiske"; 25 26my $old = "сентябрѣ - міръ - Царь Ѳеодоръ - мѵро - сѵнодъ - " . 27 "типографіи - МОСКОВІЯ - далекій"; 28my $old_ok = "sentyabrye - mi'r`` - Czar` Fheodor`` - myhro - " . 29 "syhnod`` - tipografii - MOSKOVIYA - daleki'j"; 30 31 32use Lingua::Translit; 33 34my $tr = new Lingua::Translit($name); 35 36 37my $output = $tr->translit($input); 38 39# 1 40is($tr->can_reverse(), $reversible, "$name: reversibility"); 41 42# 2 43is($output, $output_ok, "$name: UDOHR"); 44 45$output = $tr->translit($context); 46 47# 3 48is($output, $context_ok, "$name: context-sensitive"); 49 50$output = $tr->translit($old); 51 52# 4 53is($output, $old_ok, "$name: Old Russian"); 54 55 56# vim: sts=4 sw=4 ai et 57