Select Code to Download

use Test::More;
use Text::CharWidth qw(:all);
...
is mbswidth($string), 18, "CharWidth of kanji";

done_testing;

$ LC_ALL= prove -l -v t/simple_unicode_test.t 
t/simple_unicode_test.t .. 
...
  Non-zero exit status: 1
Files=1, Tests=3,  0 wallclock secs ( 0.02 usr  0.03 sys +  0.03 cusr 
+ 0.01 csys =  0.09 CPU)
Result: FAIL

$ perl -C63 -MDevel::Peek -Mutf8 -mText::CharWidth=mbswidth -le '$_="(
+\x{5fcd} Guimarães)"; Dump($_); print mbswidth($_);'

...
  CUR = 16
  LEN = 20
6