use strict;
use warnings;
use Test::More tests => 2;
use DBM::Deep;
my $dbm = DBM::Deep->new( 'test.db' );
$dbm->{'models'} = {};
$dbm->{'models'}{'Point'} = {};
$dbm->{'models'}{'Point'}{0}{0} = { y => 0, x => 0 };
$dbm->{'models'}{'Point'}{1}{0} = { y => 1, x => 0 };
$dbm->{'models'}{'Point'}{0}{1} = { y => 0, x => 1 };
$dbm->{'models'}{'Point'}{69}{42} = { y => 69, x => 42 };
my $table = $dbm->{'models'}{'Point'};
my @keys = keys %$table;
pass('got keys');
my @values = values %$table;
pass('got values');