Fetching contributors…
Cannot retrieve contributors at this time
35 lines (24 sloc) 721 Bytes
#!perl -T
use strict;
use warnings;
use utf8;
use Test::More tests => 7;
use Encode;
use_ok( 'CGI' );
ok( my $q = CGI->new, 'create a new CGI object' );
no warnings qw/ once /;
my $data = 'áéíóúµ';
ok Encode::is_utf8($data), "created UTF-8 encoded data string";
# now set the param.
$q->param(data => $data);
# if param() runs the data through Encode::decode(), this will fail.
is $q->param('data'), $data;
# make sure setting bytes decodes properly
my $bytes = Encode::encode(utf8 => $data);
ok !Encode::is_utf8($bytes), "converted UTF-8 to bytes";
$q->param(data => $bytes);
is $q->param('data'), $data;
ok Encode::is_utf8($q->param('data')), 'param() decoded UTF-8';