trunk/t/database.t

#!/usr/bin/perl -w
#
# test WAIT::Database

use strict;
use Test::More;
use Test::Exception;
use File::Path qw(rmtree);
use blib;

BEGIN { use_ok('WAIT::Database'); }

plan tests => 12;

my $db;

if (-e './test') {
        warn "test directory exists, removing!\n";
        rmtree('./test',0,1);
}

ok($db = WAIT::Database->create(name => 'test'), "create");

ok($db->close, "close");

ok(!defined($db), "object empty");

ok($db = WAIT::Database->open(name => 'test'), "open");

ok(!$db->sync, "sync without tables");

undef $WAIT::Database::self;
ok(!defined($WAIT::Database::self) , 'undef distroy');

$db = WAIT::Database->open(name => 'test');
undef $db;
ok(!defined($db), 'undef obj');

$db = WAIT::Database->open(name => 'test');
ok($db->dispose, "dispose");

ok(!defined($db), '$db empty');

{
        my $db = WAIT::Database->create(name => 'test');
        $db->close();
}

ok(!defined($db), "create+close");

ok(WAIT::Database->dispose(name => 'test'), "dispose");

ok(!defined($db = WAIT::Database->open(name => 'test')), "open non-existing database");

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	108	ok(!$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