# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

use Test::More qw(no_plan);
use strict;
use utf8;

use Text::TransMetaphone ( 'trans_metaphone', 'reverse_key' );

is ( 1, 1, "loaded." );

my @keys = trans_metaphone ( "ዩኒኮድ" );
is ( $keys[0], "jnkd", "Key Create Test" );

is ( reverse_key ( $keys[0], "am" ), "[#የ#][#ነ#][#ከ#][#ደ#]", "Key Reverse Test" );