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