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 blib; |
use blib; |
10 |
|
|
11 |
BEGIN { use_ok('WAIT::Database'); } |
BEGIN { use_ok('WAIT::Database'); } |
16 |
|
|
17 |
if (-e './test') { |
if (-e './test') { |
18 |
warn "test directory exists, removing!\n"; |
warn "test directory exists, removing!\n"; |
19 |
rmtree('./test'); |
# rmtree('./test'); |
20 |
} |
} |
21 |
|
|
22 |
ok($db = WAIT::Database->create(name => 'test'), "create"); |
ok($db = WAIT::Database->create(name => 'test'), "create"); |