|
#!/usr/bin/perl
BEGIN { 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( '' , '' , '¶i¥@¶i¤hºÉ¬Oªñµø' ), join ( "\n" , qw(¶i¥@ ¶i¤h ºÉ¬O ªñµø) ));
$columns = 3;
ok(wrap( '' , '' , '¶i¥@¶i¤hºÉ¬Oªñµø' ), join ( "\n" , qw(¶i ¥@ ¶i ¤h ºÉ ¬O ªñ µø) ));
$overflow = 1;
ok(wrap( '' , '' , '¶i¥@¶i¤hºÉ¬Oªñµø' ), join ( "\n" , qw(¶i¥@ ¶i¤h ºÉ¬O ªñµø) ));
$overflow = 0;
ok(wrap( '' , '' , '¶i¥@¶i¤hºÉ¬Oªñµø' ), join ( "\n" , qw(¶i ¥@ ¶i ¤h ºÉ ¬O ªñ µø) ));
1;
|