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

#!/usr/bin/perl -I../../lib # Test the Readonly function use strict; use Test::More tests => 4; sub expected { my $line = shift; $@ =~ s/\.$//; # difference between croak and die return "Invalid tie at " . __FILE__ . " line $line\n"; } # Find the module (1 test) BEGIN { use_ok('Readonly'); } eval { tie my $s, 'Readonly::Scalar', 1 }; is $@ => expected(__LINE__- 1), "Direct scalar tie"; eval { tie my @a, 'Readonly::Array', 2, 3, 4 }; is $@ => expected(__LINE__- 1), "Direct array tie"; eval { tie my %h, 'Readonly::Hash', five => 5, six => 6 }; is $@ => expected(__LINE__- 1), "Direct hash tie";