#!perl -T

use strict;
use warnings;

use Test::More tests => 2;

use Scalar::Util qw(tainted);
use Locale::Maketext;

my @ENV_values = values %ENV;
my $tainted_value;
do { $tainted_value = shift @ENV_values  } while(!$tainted_value || ref $tainted_value);
$tainted_value =~ s/([\[\]])/~$1/g;

ok(tainted($tainted_value), "\$tainted_value is tainted") or die('huh... %ENV has no entries? I don\'t know how to test taint without it');

my $result = Locale::Maketext::_compile("hello [_1]", $tainted_value);

pass("_compile does not hang on tainted values");