1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
use lib 't', 'lib';
use strict;
use warnings;
use Test::More;
eval "use Encode";
if($@) {
plan skip_all => "Encode not installed.";
}
use Spoon::Base;
plan tests => 5;
my $data = "\xE1\x9A\xA0\xE1\x9B\x87\xE1\x9A\xBB";
ok( ! Encode::is_utf8($data), 'data is not marked as UTF8' );
is( length $data, 9, 'undecoded data is 9 chars long' );
Spoon::Base->utf8_decode($data);
ok( Encode::is_utf8($data), 'data is marked as UTF8' );
is( length $data, 3, 'decoded data is 3 chars long' );
is( $data, "\x{16A0}\x{16C7}\x{16BB}", 'check string content after decoding' );
|
