#!/usr/bin/perl
# $File: //member/autrijus/Lingua-ZH-HanDetect/t/1-basic.t $ $Author: autrijus $
# $Revision: #3 $ $Change: 6772 $ $DateTime: 2003/06/27 04:42:27 $

use strict;
use Test;

BEGIN { plan tests => 6 }

require Lingua::ZH::HanDetect;
ok($Lingua::ZH::HanDetect::VERSION) if $Lingua::ZH::HanDetect::VERSION or 1;

Lingua::ZH::HanDetect->import('han_detect');
ok(join('-', han_detect('Not Chinese at all')), "-");
ok(join('-', han_detect('³o¬O³Ì«áªº°«ª§¡A¹Îµ²°_¨Ó¨ì©ú¤Ñ')), "big5-traditional");
ok(join('-', han_detect('ÕâÊÇ×îºóµÄ¶·Õù£¬ÍŽáÆðÀ´µ½Ã÷Ìì')), "gbk-simplified");
ok(scalar han_detect('³o¬O³Ì«áªº°«ª§¡A¹Îµ²°_¨Ó¨ì©ú¤Ñ'), "big5");
ok(scalar han_detect('ÕâÊÇ×îºóµÄ¶·Õù£¬ÍŽáÆðÀ´µ½Ã÷Ìì'), "gbk");


1;