Lines Matching full:only

12 my $ro_err = qr/^Modification of a read-only value attempted/;
14 ### Read-only scalar
24 like($@, $ro_err, q/Can't modify read-only scalar/);
26 like($@, $ro_err, q/Can't undef read-only scalar/);
34 ### Read-only array
45 like($@, $ro_err, q/Can't undef read-only array/);
47 like($@, $ro_err, q/Can't delete from read-only array/);
49 like($@, $ro_err, q/Can't shift read-only array/);
51 like($@, $ro_err, q/Can't push onto read-only array/);
53 like($@, $ro_err, q/Can't reassign read-only array/);
61 ### Read-only array element
76 like($@, $ro_err, 'Read-only array element moved');
88 like($@, $ro_err, q/Can't modify read-only array element/);
90 like($@, $ro_err, q/Can't undef read-only array element/);
94     like($@, $ro_err, q/Can't delete read-only array element/);
102 ### Read-only hash
113 like($@, $ro_err, q/Can't undef read-only hash/);
117     like($@, $ro_err, q/Can't modify read-only hash/);
120 like($@, qr/Attempt to access disallowed key/, q/Can't add to a read-only hash/);
124 is($foo{2}, 'qux', 'Can modify elements in a read-only hash');
126 ok(! exists($foo{2}), 'Can delete keys from a read-only hash');
129 is($foo{2}, 2, 'Can add back deleted keys in a read-only hash');
134 ### Read-only hash values
143 like($@, $ro_err, q/Can't modify a read-only hash value/);
145 like($@, $ro_err, q/Can't undef a read-only hash value/);
147 ok(! exists($foo{'foo'}), 'Can delete a read-only hash value');
178     is(scalar(@arr), 1, "SvREFCNT always returns only 1 item");