diff options
Diffstat (limited to 't/lib/u-readonly.t')
-rw-r--r-- | t/lib/u-readonly.t | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/t/lib/u-readonly.t b/t/lib/u-readonly.t deleted file mode 100644 index 864e1f12f2..0000000000 --- a/t/lib/u-readonly.t +++ /dev/null @@ -1,46 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; - require Config; import Config; - if ($Config{extensions} !~ /\bList\/Util\b/) { - print "1..0 # Skip: List::Util was not built\n"; - exit 0; - } -} - -use Scalar::Util qw(readonly); - -print "1..9\n"; - -print "not " unless readonly(1); -print "ok 1\n"; - -my $var = 2; - -print "not " if readonly($var); -print "ok 2\n"; - -print "not " unless $var == 2; -print "ok 3\n"; - -print "not " unless readonly("fred"); -print "ok 4\n"; - -$var = "fred"; - -print "not " if readonly($var); -print "ok 5\n"; - -print "not " unless $var eq "fred"; -print "ok 6\n"; - -$var = \2; - -print "not " if readonly($var); -print "ok 7\n"; - -print "not " unless readonly($$var); -print "ok 8\n"; - -print "not " if readonly(*STDOUT); -print "ok 9\n"; |