view release on metacpan or  search on metacpan

t/04.translate_from_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("0123456789"));
is($got, "京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ", "Translate from En: 1");

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("abcdefghijklmnopqrstuvwxyz"));
is($got, "食え食え食え食えドボドボ食えお刺身食えむむ･･･食えアジフライフライ食え食えフライドボドボフライお刺身フライむむ･･･フライアジフライお刺身食え食えお刺身ドボド...

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("ABCDEFGHIJKLMNOPQRSTUVWXYZ"));
is($got, "山岡ドボドボ山岡お刺身山岡むむ･･･山岡アジフライ岡星食え食え岡星ドボドボ岡星お刺身岡星むむ･･･岡星アジフライゴク･･･食え食えゴク･･･ドボドボゴク･･･お...

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("012abcDEFgH!4~-+::Z"));
is($got, "京極お刺身京極むむ･･･京極アジフライ食え食え食え食えドボドボ食えお刺身山岡アジフライ岡星食え食え岡星ドボドボフライドボドボ岡星むむ･･･!陶人ドボドボ~-+::京極ド...

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry(""));
is($got, "", "Translate from En: 5");

$got = Encode::decode_utf8($aji_fry_en->translate_to_ajifry("0123456789"));
is($got, "京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ", "other way");

done_testing();