# ----------------------------------------------------------------
use strict;
use Test::More qw(no_plan);
# ----------------------------------------------------------------
my $FILE = 't/sample.utf8';
# ----------------------------------------------------------------
{
use_ok('Lingua::KO::Romanize::Hangul');
my $roman = Lingua::KO::Romanize::Hangul->new();
&test_ko( $roman );
}
# ----------------------------------------------------------------
sub read_data {
ok( -r $FILE, $FILE );
open( SAMPLE, $FILE ) or exit;
local $/ = undef;
my $all = <SAMPLE>;
close( SAMPLE );
my $list = [ split( /\s+/, $all ) ];
$list;
}
# ----------------------------------------------------------------
sub test_ko {
my $roman = shift;
ok( ref $roman, "new" );
my $t = &read_data();
for( my $i=0; $i<$#$t; $i+=2 ) {
my $hangul = $t->[$i];
my $ascii = $t->[$i+1];
my $copy = $ascii;
$copy =~ tr/A-Z/a-z/;
$copy =~ s/[^a-z]+//g;
my $gen = $roman->chars( $hangul );
$gen =~ s/\W+//g;
is( $gen, $copy, "chars: [$hangul] $ascii" );
}
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------