1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
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();
|
