#!perl -wT

use strict;
use warnings;
use Test::Most;

eval 'use Test::Taint';
if($@) {
	plan skip_all => 'Test::Taint required for testing untainting';
} else {
	plan tests => 7;

	taint_checking_ok();
	require_ok('CGI::Info');

	$ENV{'C_DOCUMENT_ROOT'} = $ENV{'HOME'};
	delete $ENV{'DOCUMENT_ROOT'};

	my $i = new_ok('CGI::Info');
	untainted_ok($i->tmpdir());
	untainted_ok($i->script_name());
	untainted_ok($i->tmpdir() . '/' . $i->script_name() . '.foo');
	untainted_ok($i->script_path());
}