#!/usr/bin/perl
# $File: //member/autrijus/Lingua-ZH-Wrap/t/2-utf8.t $ $Author: autrijus $
# $Revision: #1 $ $Change: 4010 $ $DateTime: 2003/01/29 10:46:18 $
use Test;
BEGIN {
eval { require Encode } or do {
plan tests => 0;
exit;
};
plan tests => 5;
}
use utf8;
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;