#!perl -T
use strict;
use warnings;
use Test::More;
use Scalar::Util qw(tainted);
my $path;
BEGIN {
# we only catch 1 char to avoid leaking
# user information on test results
$path = substr $ENV{PATH}, 0, 1;
plan skip_all => 'tainted sample not found. Skipping...'
unless tainted($path);
delete $ENV{ANSI_COLORS_DISABLED};
delete $ENV{DATAPRINTERRC};
use File::HomeDir::Test; # avoid user's .dataprinter
use_ok ('Term::ANSIColor');
};
use Data::Printer return_value => 'dump', colored => 1;
is(
p($path),
color('reset') . q["] . colored($path, 'bright_yellow') . q["]
. ' ' . colored('(TAINTED)', 'red'),
'tainted scalar'
);
done_testing;