FM / general

/usr/share/doc/perl-Readonly/t/general

Name	Size	Mode	Actions
array.t	2050	0644	edit dl rm
clone.t	1420	0644	edit dl rm
deepa.t	1220	0644	edit dl rm
deeph.t	1266	0644	edit dl rm
deeps.t	1766	0644	edit dl rm
docs.t	2335	0644	edit dl rm
export.t	191	0644	edit dl rm
hash.t	1691	0644	edit dl rm
readonly.t	2247	0644	edit dl rm
reassign.t	3108	0644	edit dl rm
scalar.t	1318	0644	edit dl rm
tie.t	616	0644	edit dl rm

Edit: /usr/share/doc/perl-Readonly/t/general/deeph.t (1266B)

#!/usr/bin/perl -I../../lib

# Test Hash vs Hash1 functionality

use strict;
use Test::More tests => 13;

# 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";
}

use vars qw/%h1 %h2/;
my $m1 = 17;

# Create (2 tests)
eval {Readonly::Hash  %h1 => (key1 => \$m1, key2 => {x => 5, z => [1, 2, 3]})};
is $@ => '', 'Create a deep reference array';
eval {Readonly::Hash1 %h2 => (key1 => \$m1, key2 => {x => 5, z => [1, 2, 3]})};
is $@ => '', 'Create a shallow reference array';

# Modify (10 tests)
eval {$h1{key1} = 7};
is $@ => expected(__LINE__-1), 'Modify h1';
eval {$h2{key1} = 7};
is $@ => expected(__LINE__-1), 'Modify h2';

eval {${$h1{key1}} = "the"};
is $@ => expected(__LINE__-1), 'Deep-modify h1';
is $m1 => 17, 'h1 unchanged';

eval {${$h2{key1}} = "the"};
is $@ => '', 'Deep-modify h2';
is $m1 => 'the', 'h2 modification successful';

eval {$h1{key2}{z}[1] = 42};
is $@ => expected(__LINE__-1), 'Deep-deep modify h1';
is $h1{key2}{z}[1] => 2, 'h1 unchanged';

eval {$h2{key2}{z}[2] = 42};
is $@ => '', 'Deep-deep modify h2';
is $h2{key2}{z}[2], 42, 'h2 mod successful';

#!/usr/bin/perl -I../../lib # Test Hash vs Hash1 functionality use strict; use Test::More tests => 13; # 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"; } use vars qw/%h1 %h2/; my $m1 = 17; # Create (2 tests) eval {Readonly::Hash %h1 => (key1 => \$m1, key2 => {x => 5, z => [1, 2, 3]})}; is $@ => '', 'Create a deep reference array'; eval {Readonly::Hash1 %h2 => (key1 => \$m1, key2 => {x => 5, z => [1, 2, 3]})}; is $@ => '', 'Create a shallow reference array'; # Modify (10 tests) eval {$h1{key1} = 7}; is $@ => expected(__LINE__-1), 'Modify h1'; eval {$h2{key1} = 7}; is $@ => expected(__LINE__-1), 'Modify h2'; eval {${$h1{key1}} = "the"}; is $@ => expected(__LINE__-1), 'Deep-modify h1'; is $m1 => 17, 'h1 unchanged'; eval {${$h2{key1}} = "the"}; is $@ => '', 'Deep-modify h2'; is $m1 => 'the', 'h2 modification successful'; eval {$h1{key2}{z}[1] = 42}; is $@ => expected(__LINE__-1), 'Deep-deep modify h1'; is $h1{key2}{z}[1] => 2, 'h1 unchanged'; eval {$h2{key2}{z}[2] = 42}; is $@ => '', 'Deep-deep modify h2'; is $h2{key2}{z}[2], 42, 'h2 mod successful';