1# 2# $Id: utf8ref.t,v 1.1 2010/09/18 18:39:51 dankogai Exp $ 3# 4 5use strict; 6use warnings; 7use Encode; 8use Test::More; 9plan tests => 4; 10#plan 'no_plan'; 11 12# my $a = find_encoding('ASCII'); 13my $u = find_encoding('UTF-8'); 14my $r = []; 15no warnings 'uninitialized'; 16is encode_utf8($r), ''.$r; 17is $u->encode($r), ''; 18$r = {}; 19is decode_utf8($r), ''.$r; 20is $u->decode($r), ''; 21