The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base;
use utf8;
use Lingua::JA::Regular::Unicode;

plan tests => 1*blocks;

run {
    my $block = shift;
    is space_h2z(eval $block->input), eval $block->expected;
}

__END__

===
--- input:    "\x{0020}eee"
--- expected: "\x{3000}eee"