use strict;
use utf8;
use Acme::SuddenlyDeath;
use Test::More;
my $got;
my $expect;
subtest 'sudden_death' => sub {
$got = sudden_death("突然の死");
$expect = "_人人人人人_\n> 突然の死 <\n ̄^Y^Y^Y^Y^ ̄";
is($got, $expect, 'JP');
$got = sudden_death("suddenly death");
$expect = "_人人人人人人人人_\n> suddenly death <\n ̄^Y^Y^Y^Y^Y^Y^Y^ ̄";
is($got, $expect, 'EN');
$got = sudden_death("突然の death");
$expect = "_人人人人人人人_\n> 突然の death <\n ̄^Y^Y^Y^Y^Y^Y^ ̄";
is($got, $expect, 'JP/EN');
$got = sudden_death("突然の\ndeath");
$expect = "_人人人人_\n> 突然の <\n> death <\n ̄^Y^Y^Y^ ̄";
is($got, $expect, 'JP/EN + BR');
};
done_testing;