use Test::More tests => 1; use DBM::Deep; use Data::Compare; use File::Temp qw( tempfile ); my $filename = tempfile(); my $db = DBM::Deep->new( file => $filename ); $db->{foo} = [ 1 .. 3 ]; my $compare = { foo => [ 1 .. 3 ], }; ok( Compare( $db, $compare ), "The structures are the same" );