5 use Test::More tests => 8;
7 use t::common qw( new_fh );
12 $db->{foo}{bar} = [ 1 .. 3 ];
18 cmp_ok( $db->{foo}{bar}[2], '==', 3, "Correct value found" );
21 use_ok( 'DBM::Deep' );
26 my ($fh, $filename) = new_fh();
28 my $db = DBM::Deep->new(
31 data_sector_size => 32,
37 $sizes{32} = -s $filename;
40 my $db = DBM::Deep->new( file => $filename );
42 $db->_get_self->_storage->close( $db->_get_self );
47 my ($fh, $filename) = new_fh();
49 my $db = DBM::Deep->new(
52 data_sector_size => 64,
58 $sizes{64} = -s $filename;
61 my $db = DBM::Deep->new( $filename );
63 $db->_get_self->_storage->close( $db->_get_self );
68 my ($fh, $filename) = new_fh();
70 my $db = DBM::Deep->new(
73 data_sector_size => 128,
79 $sizes{128} = -s $filename;
82 my $db = DBM::Deep->new( $filename );
84 $db->_get_self->_storage->close( $db->_get_self );
89 my ($fh, $filename) = new_fh();
91 my $db = DBM::Deep->new(
94 data_sector_size => 256,
100 $sizes{256} = -s $filename;
103 my $db = DBM::Deep->new( $filename );
105 $db->_get_self->_storage->close( $db->_get_self );
109 cmp_ok( $sizes{256}, '>', $sizes{128}, "Filesize for 256 > filesize for 128" );
110 cmp_ok( $sizes{128}, '>', $sizes{64}, "Filesize for 128 > filesize for 64" );
111 cmp_ok( $sizes{64}, '>', $sizes{32}, "Filesize for 64 > filesize for 32" );