1#!/usr/bin/perl -w 2# $File: //member/autrijus/Encode-compat/t/1-basic.t $ $Author: autrijus $ 3# $Revision: #4 $ $Change: 10024 $ $DateTime: 2004/02/13 21:42:35 $ 4 5use strict; 6use Test; 7 8BEGIN { plan tests => 12 } 9 10ok(eval { use Encode::compat; 1 }); 11 12use Encode qw(encode decode from_to is_utf8 FB_HTMLCREF); 13 14my $text = '���['; 15 16ok(!is_utf8($text)); 17ok(length(decode(big5 => $text)), 2); 18ok(is_utf8(decode(big5 => $text))); 19ok(!is_utf8(encode(big5 => decode(big5 => $text)))); 20ok(!is_utf8(encode(utf8 => decode(big5 => $text)))); 21 22from_to($text, 'big5eten' => 'utf8'); 23ok(!is_utf8($text)); 24ok(length($text), 6); 25 26from_to($text, 'utf-8' => 'latin1', FB_HTMLCREF); 27ok(!is_utf8($text)); 28ok($text, '乾坤'); 29 30$text = 'test1'; 31ok(decode('utf8', $text, 256), 'test1'); 32$text = 'test2'; 33ok(encode('utf8', $text, 256), 'test2'); 34 35__END__ 36