Gestionnaire de fichiers - Editer - /usr/share/doc/perl-Readonly-1.03/t/docs.t
Arrière
#!/usr/bin/perl -I.. # Examples from the docs -- make sure they work! use strict; use Test::More tests => 22; # Find the module (1 test) BEGIN {use_ok('Readonly'); } sub expected { my $line = shift; $@ =~ s/\.$//; # difference between croak and die return "Modification of a read-only value attempted at " . __FILE__ . " line $line\n"; } my ($a1, $a2, @a1, @a2, @a3, @a4, @a5, @a6, %a1, %a2, %a3, %a4, %a5); eval {Readonly::Scalar $a1 => "A string value";}; is $@ => '', 'A string value'; my $computed_value = 5 + 5; eval {Readonly::Scalar $a2 => $computed_value;}; is $@ => '', 'Scalar computed value'; eval {Readonly::Array @a1 => (1, 2, 3, 4)}; is $@ => '', 'Array, with parens'; eval {Readonly::Array @a2 => 1, 2, 3, 4}; is $@ => '', 'Array, without parens'; eval {Readonly::Array @a3 => qw/1 2 3 4/}; is $@ => '', 'Array, with qw'; my @computed_values = qw/a b c d e f/; eval {Readonly::Array @a4 => @computed_values}; is $@ => '', 'Array, with computed values'; eval {Readonly::Array @a5 => ()}; is $@ => '', 'Empty array 1'; eval {Readonly::Array @a6}; is $@ => '', 'Empty array 2'; eval {Readonly::Hash %a1 => (key1 => "value1", key2 => "value2")}; is $@ => '', 'Hash constant'; my %computed_values = qw/a A b B c C d D/; eval {Readonly::Hash %a2 => %computed_values}; is $@ => '', 'Hash, computed values'; eval {Readonly::Hash %a3 => ()}; is $@ => '', 'Empty hash 1'; eval {Readonly::Hash %a4}; is $@ => '', 'Empty hash 2'; eval {Readonly::Hash %a5 => (key1 => "value1", "value2")}; like $@, qr/odd number of values/, 'Odd number of values'; # Shallow vs deep (8 tests) use vars qw/@shal @deep/; eval {Readonly::Array1 @shal => (1, 2, {perl=>"Rules", java=>"Bites"}, 4, 5)}; eval {Readonly::Array @deep => (1, 2, {perl=>"Rules", java=>"Bites"}, 4, 5)}; eval {$shal[1] = 7}; is $@ => expected(__LINE__-1), 'deep test 1'; is $shal[1] => 2, 'deep test 1 confirm'; eval {$shal[2]{APL}="Weird"}; is $@ => '', 'deep test 2'; is $shal[2]{APL} => "Weird", 'deep test 2 confirm'; eval {$deep[1] = 7}; is $@ => expected(__LINE__-1), 'deep test 3'; is $deep[1] => 2, 'deep test 3 confirm'; eval {$deep[2]{APL}="Weird"}; is $@ => expected(__LINE__-1), 'deep test 4'; ok !exists($deep[2]{APL}), 'deep test 4 confirm';
| ver. 1.4 |
Github
|
.
| PHP 8.0.30 | Génération de la page: 0 |
proxy
|
phpinfo
|
Réglages