remove CGI.pm from core perl distribution

[perl5.git] / cpan / CGI / t / utf8.t

diff --git a/cpan/CGI/t/utf8.t b/cpan/CGI/t/utf8.t
deleted file mode 100644 (file)
index 016dc3b..0000000
--- a/cpan/CGI/t/utf8.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!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 /;
-    $CGI::PARAM_UTF8 = 1;
-}
-
-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';