Gestionnaire de fichiers - Editer - /usr/share/doc/perl-Readonly-1.03/t/reassign.t
Arrière
#!/usr/bin/perl -I.. # Readonly reassignment-prevention tests use strict; use Test::More tests => 22; # Find the module (1 test) BEGIN {use_ok('Readonly'); } use vars qw($s1 @a1 %h1 $s2 @a2 %h2); Readonly::Scalar $s1 => 'a scalar value'; Readonly::Array @a1 => 'an', 'array', 'value'; Readonly::Hash %h1 => {a => 'hash', of => 'things'}; my $err = qr/^Attempt to reassign/; # Reassign scalar eval {Readonly::Scalar $s1 => "a second scalar value"}; like $@ => $err, 'Readonly::Scalar reassign die'; is $s1 => 'a scalar value', 'Readonly::Scalar reassign no effect'; # Reassign array eval {Readonly::Array @a1 => "another", "array"}; like $@ => $err, 'Readonly::Array reassign die'; ok eq_array(\@a1, [qw[an array value]]) => 'Readonly::Array reassign no effect'; # Reassign hash eval {Readonly::Hash %h1 => "another", "hash"}; like $@ => $err, 'Readonly::Hash reassign die'; ok eq_hash(\%h1, {a => 'hash', of => 'things'}) => 'Readonly::Hash reassign no effect'; # Now use the naked Readonly function SKIP: { skip 'Readonly \\ syntax is for perls earlier than 5.8', 7 if $] >= 5.008; eval q{ Readonly \$s2 => 'another scalar value'; Readonly \@a2 => 'another', 'array', 'value'; Readonly \%h2 => {another => 'hash', of => 'things'}; }; # Reassign scalar eval q{Readonly \$s2 => "something bad!"}; like $@ => $err, 'Readonly Scalar reassign die'; is $s2 => 'another scalar value', 'Readonly Scalar reassign no effect'; # Reassign array eval q{Readonly \@a2 => "something", "bad", "!"}; like $@ => $err, 'Readonly Array reassign die'; ok eq_array(\@a2, [qw[another array value]]) => 'Readonly Array reassign no effect'; # Reassign hash eval q{Readonly \%h2 => {another => "bad", hash => "!"}}; like $@ => $err, 'Readonly Hash reassign die'; ok eq_hash(\%h2, {another => 'hash', of => 'things'}) => 'Readonly Hash reassign no effect'; # Reassign real constant eval q{Readonly \"scalar" => "vector"}; like $@ => qr/^Modification of a read-only value attempted at \(eval \d+\),? line 1/, 'Reassign indirect via ref'; }; SKIP: { skip 'Readonly $@% syntax is for perl 5.8 or later', 6 unless $] >= 5.008; eval q{ Readonly $s2 => 'another scalar value'; Readonly @a2 => 'another', 'array', 'value'; Readonly %h2 => {another => 'hash', of => 'things'}; }; # Reassign scalar eval q{Readonly $s2 => "something bad!"}; like $@ => $err, 'Readonly Scalar reassign die'; is $s2 => 'another scalar value', 'Readonly Scalar reassign no effect'; # Reassign array eval q{Readonly @a2 => "something", "bad", "!"}; like $@ => $err, 'Readonly Array reassign die'; ok eq_array(\@a2, [qw[another array value]]) => 'Readonly Array reassign no effect'; # Reassign hash eval q{Readonly %h2 => {another => "bad", hash => "!"}}; like $@ => $err, 'Readonly Hash reassign die'; ok eq_hash(\%h2, {another => 'hash', of => 'things'}) => 'Readonly Hash reassign no effect'; }; # Reassign real constants eval q{Readonly::Scalar "hello" => "goodbye"}; like $@ => $err, 'Reassign real string'; eval q{Readonly::Scalar1 6 => 13}; like $@ => $err, 'Reassign real number';
| ver. 1.4 |
Github
|
.
| PHP 8.0.30 | Génération de la page: 0.01 |
proxy
|
phpinfo
|
Réglages