# DBM::Deep Test
##
use strict;
-use Test::More tests => 4;
+use Test::More tests => 7;
+use Test::Exception;
use DBM::Deep;
my $offset = tell(FILE);
close(FILE);
-open(FILE, "t/28_DATA.t");
+open(FILE, '<', "t/28_DATA.t");
ok(($db = DBM::Deep->new(fh => *FILE, file_offset => $offset)), "open db in filehandle with offset");
ok($db->{hash}->{foo}->[1] eq 'b', "and get at stuff in the database");
+ok( !$db->{foo}, "foo doesn't exist yet" );
+throws_ok {
+ $db->{foo} = 1;
+} qr/Cannot write to a readonly filehandle/, "Can't write to a read-only filehandle";
+ok( !$db->{foo}, "foo doesn't exist yet" );