Update to Scalar-List-Utils-1.15

[p5sagit/p5-mst-13.2.git] / ext / List / Util / t / tainted.t

diff --git a/ext/List/Util/t/tainted.t b/ext/List/Util/t/tainted.t
index a330b1f..2e9c641 100644 (file)
--- a/ext/List/Util/t/tainted.t
+++ b/ext/List/Util/t/tainted.t
@@ -13,26 +13,19 @@ BEGIN {
     }
 }
 
-use lib qw(blib/lib blib/arch);
-use Scalar::Util qw(tainted);
-use Config;
+use Test::More tests => 4;
 
-print "1..4\n";
+use Scalar::Util qw(tainted);
 
-print "not " if tainted(1);
-print "ok 1\n";
+ok( !tainted(1), 'constant number');
 
 my $var = 2;
 
-print "not " if tainted($var);
-print "ok 2\n";
+ok( !tainted($var), 'known variable');
 
 my $key = (keys %ENV)[0];
 
-$var = $ENV{$key};
+ok( tainted($ENV{$key}),       'environment variable');
 
-print "not " unless tainted($var);
-print "ok 3\n";
-
-print "not " unless tainted($ENV{$key});
-print "ok 4\n";
+$var = $ENV{$key};
+ok( tainted($var),     'copy of environment variable');