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 lib '/data/wait2/lib';
use blib;

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

plan tests => 10;

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");

# can't test this
#undef $WAIT::Database::self;
#ok(!defined($WAIT::Database::self) , 'undef $WAIT::Database::self');

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

ok(! $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			use lib '/data/wait2/lib';
10	dpavlin	108	use blib;
11	ulpfr	10
12	dpavlin	108	BEGIN { use_ok('WAIT::Database'); }
13	ulpfr	10
14	dpavlin	110	plan tests => 10;
15	ulpfr	10
16	dpavlin	108	my $db;
17	ulpfr	10
18	dpavlin	108	if (-e './test') {
19			warn "test directory exists, removing!\n";
20	dpavlin	110	rmtree('./test',0,1);
21	dpavlin	108	}
22	ulpfr	10
23	dpavlin	108	ok($db = WAIT::Database->create(name => 'test'), "create");
24	ulpfr	10
25	dpavlin	108	ok($db->close, "close");
26	ulpfr	10
27	dpavlin	108	ok(!defined($db), "object empty");
28	ulpfr	10
29	dpavlin	108	ok($db = WAIT::Database->open(name => 'test'), "open");
30	ulpfr	10
31	dpavlin	108	ok(!$db->sync, "sync without tables");
32	ulpfr	10
33	dpavlin	108	# can't test this
34			#undef $WAIT::Database::self;
35			#ok(!defined($WAIT::Database::self) , 'undef $WAIT::Database::self');
36	ulpfr	10
37	dpavlin	108	ok($db->dispose, "dispose");
38	ulpfr	10
39	dpavlin	108	ok(! $db, '$db empty');
40	ulpfr	10
41	dpavlin	108	{
42			my $db = WAIT::Database->create(name => 'test');
43			$db->close();
44			}
45	dpavlin	110
46	dpavlin	108	ok(!defined($db), "create+close");
47	ulpfr	10
48	dpavlin	108	ok(WAIT::Database->dispose(name => 'test'), "dispose");
49	ulpfr	10
50	dpavlin	110	ok(!defined($db = WAIT::Database->open(name => 'test')), "open non-existing database");
51