|
Packit |
d0f5c2 |
#!/usr/bin/perl -T
|
|
Packit |
d0f5c2 |
use strict;
|
|
Packit |
d0f5c2 |
use Encode qw(encode decode);
|
|
Packit |
d0f5c2 |
local %Encode::ExtModule = %Encode::Config::ExtModule;
|
|
Packit |
d0f5c2 |
use Scalar::Util qw(tainted);
|
|
Packit |
d0f5c2 |
use Test::More;
|
|
Packit |
d0f5c2 |
my $taint = substr($ENV{PATH},0,0);
|
|
Packit |
d0f5c2 |
my $str = "dan\x{5f3e}" . $taint; # tainted string to encode
|
|
Packit |
d0f5c2 |
my $bin = encode('UTF-8', $str); # tainted binary to decode
|
|
Packit |
d0f5c2 |
my $notaint = "";
|
|
Packit |
d0f5c2 |
my $notaint_str = "dan\x{5f3e}" . $notaint;
|
|
Packit |
d0f5c2 |
my $notaint_bin = encode('UTF-8', $notaint_str);
|
|
Packit |
d0f5c2 |
my @names = Encode->encodings(':all');
|
|
Packit |
d0f5c2 |
plan tests => 4 * @names + 2;
|
|
Packit |
d0f5c2 |
for my $name (@names) {
|
|
Packit |
d0f5c2 |
my ($d, $e, $s);
|
|
Packit |
d0f5c2 |
eval {
|
|
Packit |
d0f5c2 |
$e = encode($name, $str);
|
|
Packit |
d0f5c2 |
};
|
|
Packit |
d0f5c2 |
SKIP: {
|
|
Packit |
d0f5c2 |
skip $@, 1 if $@;
|
|
Packit |
d0f5c2 |
ok tainted($e), "encode $name";
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
$bin = $e.$taint if $e;
|
|
Packit |
d0f5c2 |
eval {
|
|
Packit |
d0f5c2 |
$d = decode($name, $bin);
|
|
Packit |
d0f5c2 |
};
|
|
Packit |
d0f5c2 |
SKIP: {
|
|
Packit |
d0f5c2 |
skip $@, 1 if $@;
|
|
Packit |
d0f5c2 |
ok tainted($d), "decode $name";
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
for my $name (@names) {
|
|
Packit |
d0f5c2 |
my ($d, $e, $s);
|
|
Packit |
d0f5c2 |
eval {
|
|
Packit |
d0f5c2 |
$e = encode($name, $notaint_str);
|
|
Packit |
d0f5c2 |
};
|
|
Packit |
d0f5c2 |
SKIP: {
|
|
Packit |
d0f5c2 |
skip $@, 1 if $@;
|
|
Packit |
d0f5c2 |
ok ! tainted($e), "encode $name";
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
$notaint_bin = $e.$notaint if $e;
|
|
Packit |
d0f5c2 |
eval {
|
|
Packit |
d0f5c2 |
$d = decode($name, $notaint_bin);
|
|
Packit |
d0f5c2 |
};
|
|
Packit |
d0f5c2 |
SKIP: {
|
|
Packit |
d0f5c2 |
skip $@, 1 if $@;
|
|
Packit |
d0f5c2 |
ok ! tainted($d), "decode $name";
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
Encode::_utf8_on($bin);
|
|
Packit |
d0f5c2 |
ok(!Encode::is_utf8($bin), "Encode::_utf8_on does not work on tainted values");
|
|
Packit |
d0f5c2 |
Encode::_utf8_off($str);
|
|
Packit |
d0f5c2 |
ok(Encode::is_utf8($str), "Encode::_utf8_off does not work on tainted values");
|