use strict;
use Test::More tests => 5;
use Encode qw/decode/;
my $name = "ISO/R 9 - SR";
# Copyright (c) Zoran Radisavljević
my $pangram1 = "Њој пљачком згрћеш туђ ЦД, ВХС, беж филџан!";
my $pangram1_ok = "Njoj pljačkom zgrćeš tuđ CD, VHS, bež fildžan!";
# Copyright (c) Rastko Ćirić
my $pangram2 = "Дебљој згужвах смеђ филц – њен шкрт џепчић.";
my $pangram2_ok = "Debljoj zgužvah smeđ filc – njen škrt džepčić.";
# Copyright (c) Ivan Klajn
my $pangram3 = "Ђаче, уштеду плаћај жаљењем због џиновских цифара.";
my $pangram3_ok = "Đače, uštedu plaćaj žaljenjem zbog džinovskih cifara.";
my $lower_case = "абвгдђежзијклљмнњопрстћуфхцчџш";
my $lower_case_ok = "abvgdđežzijklljmnnjoprstćufhcčdžš";
my $upper_case = "АБВГДЂЕЖЗИЈКЛЉМНЊОПРСТЋУФХЦЧЏШ";
my $upper_case_ok = "ABVGDĐEŽZIJKLLJMNNJOPRSTĆUFHCČDŽŠ";
use Lingua::Translit;
my $tr = new Lingua::Translit("ISO/R 9");
# 1
my $output = $tr->translit($pangram1);
is($output, $pangram1_ok, "$name: Serbian pangram (33) transliteration");
# 2
$output = $tr->translit($pangram2);
is($output, $pangram2_ok, "$name: Serbian pangram (34) transliteration");
# 3
$output = $tr->translit($pangram3);
is($output, $pangram3_ok, "$name: Serbian pangram (42) transliteration");
# 4
$output = $tr->translit($lower_case);
is($output, $lower_case_ok, "$name: lower case alphabet");
# 5
$output = $tr->translit($upper_case);
is($output, $upper_case_ok, "$name: upper case alphabet");