|
#!/usr/bin/perl
BEGIN {
eval { require Encode } or do { plan tests => 0;
exit ;
};
plan tests => 5;
}
ok( $Lingua::ZH::Wrap::VERSION ) if $Lingua::ZH::Wrap::VERSION or 1;
Lingua::ZH::Wrap-> import ( qw(wrap $columns $overflow) );
$columns = 4;
ok(wrap( '' , '' , '進世進士盡是近視' ), join ( "\n" , qw(進世 進士 盡是 近視) ));
$columns = 3;
ok(wrap( '' , '' , '進世進士盡是近視' ), join ( "\n" , qw(進 世 進 士 盡 是 近 視) ));
$overflow = 1;
ok(wrap( '' , '' , '進世進士盡是近視' ), join ( "\n" , qw(進世 進士 盡是 近視) ));
$overflow = 0;
ok(wrap( '' , '' , '進世進士盡是近視' ), join ( "\n" , qw(進 世 進 士 盡 是 近 視) ));
1;
|