diff --git a/t/taint.t b/t/taint.t index fded699..99e983c 100644 --- a/t/taint.t +++ b/t/taint.t @@ -2,23 +2,18 @@ use strict; use warnings; -use Test::Most; +use Test::Most tests => 7; +use Test::Needs 'Test::Taint'; -eval 'use Test::Taint'; -if($@) { - plan(skip_all => 'Test::Taint required for testing untainting'); -} else { - plan(tests => 7); +Test::Taint->import(); +taint_checking_ok(); +require_ok('CGI::Info'); - taint_checking_ok(); - require_ok('CGI::Info'); +$ENV{'C_DOCUMENT_ROOT'} = $ENV{'HOME'}; +delete $ENV{'DOCUMENT_ROOT'}; - $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()); -} +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());