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

my $name        =   "Common ARA";
my $reversible  =   0;

my $input       =   "اخبار اليوم"; # "News Today"
my $output_ok   =   "akhbar alywm";

my $udohr       =   "يولد جميع الناس أحراراً متساوين في الكرامة والحقوق، " .
                    "وقد وهبوا عقلاً وضميراً وعليهم أن يعامل بعضهم بعضاً " .
                    "بروح الإخاء.";
my $udohr_ok    =   "ywld jmy'e alnas ahrara mtsawyn fy alkramh walhqwq, " .
                    "wqd whbwa 'eqla wdmyra w'elyhm an y'eaml b'edhm " .
                    "b'eda brwh alekha'.";

use Lingua::Translit;

my $tr = Lingua::Translit->new( $name );


my $output = $tr->translit( $input );

# 1
is( $tr->can_reverse(), $reversible, "$name: reversibility" );

# 2
is( $output, $output_ok, "$name: transliteration (short)" );

$output = $tr->translit( $udohr );

# 3
is( $output, $udohr_ok, "$name: transliteration (UDOHR)" );

# vim: set sts=4 sw=4 ts=4 ai et ft=perl: