1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use strict; use warnings;
use lib -e 't' ? 't' : 'test';
use Test::More tests => 4;
use IO::All;
use IO_All_Test;
ok(io(o_dir() . '/xxx/yyy/zzz.db')->dbm->assert->{foo} = "bar");
ok(
-f o_dir() . '/xxx/yyy/zzz.db' or
-f o_dir() . '/xxx/yyy/zzz.db.dir' or
-f o_dir() . '/xxx/yyy/zzz.db.db'
);
SKIP: {
skip "requires MLDBM", 2
unless eval { require MLDBM; 1};
ok(io(o_dir() . '/xxx/yyy/zzz2.db')->assert->mldbm->{foo} = ["bar"]);
ok(-f o_dir() . '/xxx/yyy/zzz2.db' or -f o_dir() . '/xxx/yyy/zzz.db.dir');
}
del_output_dir();
|
