This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Encode to CPAN version 2.54
[perl5.git] / cpan / Encode / t / cow.t
1 #
2 # $Id: cow.t,v 1.1 2013/08/29 16:47:39 dankogai Exp dankogai $
3 #
4 use strict;
5 use Encode ();
6 use Test::More tests => 2;
7
8
9 my %a = ( "L\x{c3}\x{a9}on" => "acme" );
10 my ($k) = ( keys %a );
11 Encode::_utf8_on($k);
12 my %h = ( $k => "acme" );
13 is $h{"L\x{e9}on"} => 'acme';
14 ($k) = ( keys %h );
15 Encode::_utf8_off($k);
16 %a = ( $k => "acme" );
17 is $h{"L\x{e9}on"} => 'acme';
18 # use Devel::Peek;
19 # Dump(\%h);
20