use strict;
use Test::More tests => 3;  # number of tests

my $name	=   "";	    # transliterations name
my $reversible	=   0;	    # is the transliteration reversible?

my $input	=   "";	    # short corpus...
my $output_ok	=   "";	    # ...its correct transliteration

my $context	=   "";	    # context-sensitive example
my $context_ok	=   "";	    # ...its correct transliteration

use Lingua::Translit;

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


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

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

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

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

# 3
is($output, $context_ok, "$name: transliteration (context-sensitive)");

# vim: sts=4 enc=utf-8