5 use Test::More tests => 2;
6 use File::Temp qw( tempfile tempdir );
10 my $dir = tempdir( CLEANUP => 1 );
15 my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir );
16 my $db = DBM::Deep->new(
20 $db->{key1} = "value1";
21 $db->{key2} = "value2";
22 $before = (stat($db->_fh()))[7];
26 my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir );
27 my $db = DBM::Deep->new(
33 # set pack to 2-byte (16-bit) words
35 $db->_get_self->{engine}->set_pack( 2, 'S' );
37 $db->{key1} = "value1";
38 $db->{key2} = "value2";
39 $after = (stat($db->_fh()))[7];
42 ok( $after < $before, "The new packsize reduced the size of the file" );