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 => 9;

my $db;

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

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

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