use strict; use Test::Base; use utf8; use Acme::Lou; my $lou = new Acme::Lou; sub translate { my $text = shift; $lou->translate($text, { lou_rate => 100, html_fx_rate => 100, }); } run_compare; __DATA__ === basic --- input translate 今日は暖かい。 --- expected eval qr{^ トゥデイ<.*?/FONT>はウォーム<.*?/FONT>。 $} === like text --- input translate 今年もよろしくお願いいたします。 ルーと一緒です。 美しい国づくりの礎を築くことができたと、 考えています。 --- expected eval qr{^ディスイヤー<.*?/FONT>もよろしくプリーズ<.*?/FONT>いたします。 ルーとトゥギャザー<.*?/FONT>です。 ビューティフル<.*?/FONT>な国づくりの礎をビルド<.*?/FONT>することができたと、 シンクアバウト<.*?/FONT>しています。$} === skip title --- input translate 内緒
内緒
--- expected eval qr|^ シークレット
シークレット<.*?/FONT>
$|