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