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/readonly.t (2247B)

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

# Test the Readonly function

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

# Find the module (1 test)
BEGIN {use_ok('Readonly'); }

my $expected = qr/Modification of a read-only value attempted at $eval \d+$,? line 1/;

SKIP:
{
	skip 'Readonly \\ syntax is for perls earlier than 5.8', 9  if $] >= 5.008;

eval q{Readonly \my $ros => 45};
	is $@ => '', 'Create scalar';

eval q{Readonly \my $ros2 => 45;  $ros2 = 45};
	like $@ => $expected, 'Modify scalar';

eval q{Readonly \my @roa => (1, 2, 3, 4)};
	is $@ => '', 'Create array';

eval q{Readonly \my @roa2 => (1, 2, 3, 4); $roa2[2] = 3};
	like $@ => $expected, 'Modify array';

eval q{Readonly \my %roh => (key1 => "value", key2 => "value2")};
	is $@ => '', 'Create hash (list)';

eval q{Readonly \my %roh => (key1 => "value", "key2")};
	like $@ => qr/odd number of values/, 'Odd number of values';

eval q{Readonly \my %roh2 => (key1 => "value", key2 => "value2"); $roh2{key1}="value"};
	like $@ => $expected, 'Modify hash';

eval q{Readonly \my %roh => {key1 => "value", key2 => "value2"}};
	is $@ => '', 'Create hash (hashref)';

eval q{Readonly \my %roh2 => {key1 => "value", key2 => "value2"}; $roh2{key1}="value"};
	like $@ => $expected, 'Modify hash';
};

SKIP:
{
	skip 'Readonly $@% syntax is for perl 5.8 or later', 9  unless $] >= 5.008;

eval q{Readonly my $ros => 45};
	is $@ => '', 'Create scalar';

eval q{Readonly my $ros2 => 45;  $ros2 = 45};
	like $@ => $expected, 'Modify scalar';

eval q{Readonly my @roa => (1, 2, 3, 4)};
	is $@ => '', 'Create array';

eval q{Readonly my @roa2 => (1, 2, 3, 4); $roa2[2] = 3};
	like $@ => $expected, 'Modify array';

eval q{Readonly my %roh => (key1 => "value", key2 => "value2")};
	is $@ => '', 'Create hash (list)';

eval q{Readonly my %roh => (key1 => "value", "key2")};
	like $@ => qr/odd number of values/, 'Odd number of values';

eval q{Readonly my %roh2 => (key1 => "value", key2 => "value2"); $roh2{key1}="value"};
	like $@ => $expected, 'Modify hash';

eval q{Readonly my %roh => {key1 => "value", key2 => "value2"}};
	is $@ => '', 'Create hash (hashref)';

eval q{Readonly my %roh2 => {key1 => "value", key2 => "value2"}; $roh2{key1}="value"};
	like $@ => $expected, 'Modify hash';
};

#!/usr/bin/perl -I../../lib # Test the Readonly function use strict; use Test::More tests => 19; # Find the module (1 test) BEGIN {use_ok('Readonly'); } my $expected = qr/Modification of a read-only value attempted at $eval \d+$,? line 1/; SKIP: { skip 'Readonly \\ syntax is for perls earlier than 5.8', 9 if $] >= 5.008; eval q{Readonly \my $ros => 45}; is $@ => '', 'Create scalar'; eval q{Readonly \my $ros2 => 45; $ros2 = 45}; like $@ => $expected, 'Modify scalar'; eval q{Readonly \my @roa => (1, 2, 3, 4)}; is $@ => '', 'Create array'; eval q{Readonly \my @roa2 => (1, 2, 3, 4); $roa2[2] = 3}; like $@ => $expected, 'Modify array'; eval q{Readonly \my %roh => (key1 => "value", key2 => "value2")}; is $@ => '', 'Create hash (list)'; eval q{Readonly \my %roh => (key1 => "value", "key2")}; like $@ => qr/odd number of values/, 'Odd number of values'; eval q{Readonly \my %roh2 => (key1 => "value", key2 => "value2"); $roh2{key1}="value"}; like $@ => $expected, 'Modify hash'; eval q{Readonly \my %roh => {key1 => "value", key2 => "value2"}}; is $@ => '', 'Create hash (hashref)'; eval q{Readonly \my %roh2 => {key1 => "value", key2 => "value2"}; $roh2{key1}="value"}; like $@ => $expected, 'Modify hash'; }; SKIP: { skip 'Readonly $@% syntax is for perl 5.8 or later', 9 unless $] >= 5.008; eval q{Readonly my $ros => 45}; is $@ => '', 'Create scalar'; eval q{Readonly my $ros2 => 45; $ros2 = 45}; like $@ => $expected, 'Modify scalar'; eval q{Readonly my @roa => (1, 2, 3, 4)}; is $@ => '', 'Create array'; eval q{Readonly my @roa2 => (1, 2, 3, 4); $roa2[2] = 3}; like $@ => $expected, 'Modify array'; eval q{Readonly my %roh => (key1 => "value", key2 => "value2")}; is $@ => '', 'Create hash (list)'; eval q{Readonly my %roh => (key1 => "value", "key2")}; like $@ => qr/odd number of values/, 'Odd number of values'; eval q{Readonly my %roh2 => (key1 => "value", key2 => "value2"); $roh2{key1}="value"}; like $@ => $expected, 'Modify hash'; eval q{Readonly my %roh => {key1 => "value", key2 => "value2"}}; is $@ => '', 'Create hash (hashref)'; eval q{Readonly my %roh2 => {key1 => "value", key2 => "value2"}; $roh2{key1}="value"}; like $@ => $expected, 'Modify hash'; };