view release on metacpan or  search on metacpan

t/01decomposeWidth.t  view on Meta::CPAN

#-*- perl -*-
#-*- coding: utf-8 -*-

use strict;
use warnings;
no utf8;

use Test::More tests => 1;
use Unicode::Precis::Utils qw(decomposeWidth);

my ($comp, $decomp) = do { local $/ = ''; <DATA> };
1 while chomp ($comp, $decomp);
is(decomposeWidth($comp), $decomp, $decomp);

__END__
　！＂＃＄％＆＇（）＊＋，－．／
０１２３４５６７８９：；＜＝＞？
＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯ
ＰＱＲＳＴＵＶＷＸＹＺ［＼］＾＿
｀ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏ
ｐｑｒｓｔｕｖｗｘｙｚ｛｜｝～｟