use strict; use warnings;
use lib -e 't' ? 't' : 'test';

my $db_file;
BEGIN {
    use Config;
    foreach (qw/SDBM_File GDBM_File ODBM_File NDBM_File DB_File/) {
        if ($Config{extensions} =~ /\b$_\b/) {
            $db_file = $_;
            last;
        }
    }
}

use Test::More defined($db_file)
    ? (tests => 2)
    : (skip_all => 'No DBM modules available');

use IO::All;
use IO_All_Test;

{
my $db = io(o_dir() . '/mydbm')->dbm($db_file);
$db->{fortytwo} = 42;
$db->{foo} = 'bar';

is(join('', sort keys %$db), 'foofortytwo');
is(join('', sort values %$db), '42bar');
}

del_output_dir();