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/deepa.t (1220B)

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

# Test Array vs Array1 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/@a1 @a2/;
my $m1 = 17;

# Create (2 tests)
eval {Readonly::Array  @a1 => (\$m1, {x => 5, z => [1, 2, 3]})};
is $@ => '', 'Create a deep reference array';
eval {Readonly::Array1 @a2 => (\$m1, {x => 5, z => [1, 2, 3]})};
is $@ => '', 'Create a shallow reference array';

# Modify (10 tests)
eval {$a1[0] = 7;};
is $@ => expected(__LINE__-1), 'Modify a1';
eval {$a2[0] = 7;};
is $@ => expected(__LINE__-1), 'Modify a2';

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

eval {${$a2[0]} = "the";};
is $@ => '', 'Deep-modify a2';
is $m1 => 'the', 'a2 modification successful';

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

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

#!/usr/bin/perl -I../../lib # Test Array vs Array1 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/@a1 @a2/; my $m1 = 17; # Create (2 tests) eval {Readonly::Array @a1 => (\$m1, {x => 5, z => [1, 2, 3]})}; is $@ => '', 'Create a deep reference array'; eval {Readonly::Array1 @a2 => (\$m1, {x => 5, z => [1, 2, 3]})}; is $@ => '', 'Create a shallow reference array'; # Modify (10 tests) eval {$a1[0] = 7;}; is $@ => expected(__LINE__-1), 'Modify a1'; eval {$a2[0] = 7;}; is $@ => expected(__LINE__-1), 'Modify a2'; eval {${$a1[0]} = "the";}; is $@ => expected(__LINE__-1), 'Deep-modify a1'; is $m1 => 17, 'a1 unchanged'; eval {${$a2[0]} = "the";}; is $@ => '', 'Deep-modify a2'; is $m1 => 'the', 'a2 modification successful'; eval {$a1[1]{z}[1] = 42;}; is $@ => expected(__LINE__-1), 'Deep-deep modify a1'; is $a1[1]{z}[1] => 2, 'a1 unchanged'; eval {$a2[1]{z}[2] = 42;}; is $@ => '', 'Deep-deep modify a2'; is $a2[1]{z}[2], 42, 'a2 mod successful';