1 |
dpavlin |
108 |
#!/usr/bin/perl -w |
2 |
|
|
# |
3 |
|
|
# test WAIT::Database |
4 |
ulpfr |
10 |
|
5 |
dpavlin |
108 |
use strict; |
6 |
|
|
use Test::More; |
7 |
|
|
use Test::Exception; |
8 |
dpavlin |
110 |
use File::Path qw(rmtree); |
9 |
dpavlin |
108 |
use blib; |
10 |
ulpfr |
10 |
|
11 |
dpavlin |
108 |
BEGIN { use_ok('WAIT::Database'); } |
12 |
ulpfr |
10 |
|
13 |
dpavlin |
112 |
plan tests => 12; |
14 |
ulpfr |
10 |
|
15 |
dpavlin |
108 |
my $db; |
16 |
ulpfr |
10 |
|
17 |
dpavlin |
108 |
if (-e './test') { |
18 |
|
|
warn "test directory exists, removing!\n"; |
19 |
dpavlin |
110 |
rmtree('./test',0,1); |
20 |
dpavlin |
108 |
} |
21 |
ulpfr |
10 |
|
22 |
dpavlin |
108 |
ok($db = WAIT::Database->create(name => 'test'), "create"); |
23 |
ulpfr |
10 |
|
24 |
dpavlin |
108 |
ok($db->close, "close"); |
25 |
ulpfr |
10 |
|
26 |
dpavlin |
108 |
ok(!defined($db), "object empty"); |
27 |
ulpfr |
10 |
|
28 |
dpavlin |
108 |
ok($db = WAIT::Database->open(name => 'test'), "open"); |
29 |
ulpfr |
10 |
|
30 |
dpavlin |
116 |
ok(!$db || !$db->sync, "sync without tables"); |
31 |
ulpfr |
10 |
|
32 |
dpavlin |
112 |
undef $WAIT::Database::self; |
33 |
|
|
ok(!defined($WAIT::Database::self) , 'undef distroy'); |
34 |
ulpfr |
10 |
|
35 |
dpavlin |
112 |
$db = WAIT::Database->open(name => 'test'); |
36 |
|
|
undef $db; |
37 |
|
|
ok(!defined($db), 'undef obj'); |
38 |
|
|
|
39 |
|
|
$db = WAIT::Database->open(name => 'test'); |
40 |
dpavlin |
108 |
ok($db->dispose, "dispose"); |
41 |
ulpfr |
10 |
|
42 |
dpavlin |
112 |
ok(!defined($db), '$db empty'); |
43 |
ulpfr |
10 |
|
44 |
dpavlin |
108 |
{ |
45 |
|
|
my $db = WAIT::Database->create(name => 'test'); |
46 |
|
|
$db->close(); |
47 |
|
|
} |
48 |
dpavlin |
110 |
|
49 |
dpavlin |
108 |
ok(!defined($db), "create+close"); |
50 |
ulpfr |
10 |
|
51 |
dpavlin |
108 |
ok(WAIT::Database->dispose(name => 'test'), "dispose"); |
52 |
ulpfr |
10 |
|
53 |
dpavlin |
110 |
ok(!defined($db = WAIT::Database->open(name => 'test')), "open non-existing database"); |
54 |
|
|
|