Update to Scalar-List-Utils-1.15

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

diff --git a/ext/List/Util/t/readonly.t b/ext/List/Util/t/readonly.t
index a72d788..a515f2e 100644 (file)
--- a/ext/List/Util/t/readonly.t
+++ b/ext/List/Util/t/readonly.t
@@ -14,39 +14,25 @@ BEGIN {
 }
 
 use Scalar::Util qw(readonly);
+use Test::More tests => 9;
 
-
-print "1..9\n";
-
-print "not " unless readonly(1);
-print "ok 1\n";
+ok( readonly(1),       'number constant');
 
 my $var = 2;
 
-print "not " if readonly($var);
-print "ok 2\n";
-
-print "not " unless $var == 2;
-print "ok 3\n";
+ok( !readonly($var),   'number variable');
+is( $var,      2,      'no change to number variable');
 
-print "not " unless readonly("fred");
-print "ok 4\n";
+ok( readonly("fred"),  'string constant');
 
 $var = "fred";
 
-print "not " if readonly($var);
-print "ok 5\n";
-
-print "not " unless $var eq "fred";
-print "ok 6\n";
+ok( !readonly($var),   'string variable');
+is( $var,      'fred', 'no change to string variable');
 
 $var = \2;
 
-print "not " if readonly($var);
-print "ok 7\n";
-
-print "not " unless readonly($$var);
-print "ok 8\n";
+ok( !readonly($var),   'reference to constant');
+ok( readonly($$var),   'de-reference to constant');
 
-print "not " if readonly(*STDOUT);
-print "ok 9\n";
+ok( !readonly(*STDOUT),        'glob');