5 |
use strict; |
use strict; |
6 |
use Test::More; |
use Test::More; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
#use File::Path qw(rmtree); |
use File::Path qw(rmtree); |
9 |
|
use lib '/data/wait2/lib'; |
10 |
use blib; |
use blib; |
11 |
|
|
12 |
BEGIN { use_ok('WAIT::Database'); } |
BEGIN { use_ok('WAIT::Database'); } |
13 |
|
|
14 |
plan tests => 9; |
plan tests => 10; |
15 |
|
|
16 |
my $db; |
my $db; |
17 |
|
|
18 |
if (-e './test') { |
if (-e './test') { |
19 |
warn "test directory exists, removing!\n"; |
warn "test directory exists, removing!\n"; |
20 |
# rmtree('./test'); |
rmtree('./test',0,1); |
21 |
} |
} |
22 |
|
|
23 |
ok($db = WAIT::Database->create(name => 'test'), "create"); |
ok($db = WAIT::Database->create(name => 'test'), "create"); |
42 |
my $db = WAIT::Database->create(name => 'test'); |
my $db = WAIT::Database->create(name => 'test'); |
43 |
$db->close(); |
$db->close(); |
44 |
} |
} |
45 |
|
|
46 |
ok(!defined($db), "create+close"); |
ok(!defined($db), "create+close"); |
47 |
|
|
48 |
ok(WAIT::Database->dispose(name => 'test'), "dispose"); |
ok(WAIT::Database->dispose(name => 'test'), "dispose"); |
49 |
|
|
50 |
dies_ok { $db = WAIT::Database->open(name => 'test') } "open non-existing database"; |
ok(!defined($db = WAIT::Database->open(name => 'test')), "open non-existing database"); |
51 |
|
|