trunk/t/table.t

#!/usr/bin/perl -w

use strict;

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

BEGIN { use_ok('WAIT::Database'); }
END { system 'rm -rf test' if -d 'test'; }

plan tests => 31;

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

ok(my $tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");

use Data::Dumper;
print Dumper($tb);

ok($db->drop_table(name => 'sample'), "drop_table");

ok (!$tb->drop, "tb->drop");

ok ($tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");

ok($tb->open, "tb->open");

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

ok(defined $tb,"defined tb");

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

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

ok($tb = $db->table(name => 'sample'), "db->table");

ok($tb->open, "tb->open");

ok($tb->set(top=>1), "tb->set(top=>1)");

ok($tb->drop, "tb->drop");
ok(!defined $tb, "undef tb");

# clean up
ok($db->dispose, "dispose");
ok(!defined $db, "undef db");


1	dpavlin	114	#!/usr/bin/perl -w
2	ulpfr	10
3	dpavlin	114	use strict;
4	ulpfr	10
5	dpavlin	114	use Test::More;
6			use File::Path qw(rmtree);
7			use blib;
8	ulpfr	10
9	dpavlin	114	BEGIN { use_ok('WAIT::Database'); }
10			END { system 'rm -rf test' if -d 'test'; }
11	ulpfr	10
12	dpavlin	114	plan tests => 31;
13	ulpfr	10
14	dpavlin	114	ok(my $db = WAIT::Database->create(name => 'test'), "create");
15	ulpfr	10
16	dpavlin	114	ok(my $tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
17	ulpfr	10
18	dpavlin	114	use Data::Dumper;
19			print Dumper($tb);
20	ulpfr	10
21	dpavlin	114	ok($db->drop_table(name => 'sample'), "drop_table");
22	ulpfr	10
23	dpavlin	114	ok (!$tb->drop, "tb->drop");
24	ulpfr	10
25	dpavlin	114	ok ($tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
26	ulpfr	10
27	dpavlin	114	ok($tb->open, "tb->open");
28	ulpfr	10
29	dpavlin	114	ok($tb->close, "tb->close");
30	ulpfr	10
31	dpavlin	114	ok(defined $tb,"defined tb");
32	ulpfr	10
33	dpavlin	114	ok($db->close, "db->close");
34	ulpfr	19
35	dpavlin	114	ok($db = WAIT::Database->open(name => 'test'), "open");
36	ulpfr	10
37	dpavlin	114	ok($tb = $db->table(name => 'sample'), "db->table");
38
39			ok($tb->open, "tb->open");
40
41			ok($tb->set(top=>1), "tb->set(top=>1)");
42
43			ok($tb->drop, "tb->drop");
44			ok(!defined $tb, "undef tb");
45
46	ulpfr	10	# clean up
47	dpavlin	114	ok($db->dispose, "dispose");
48			ok(!defined $db, "undef db");
49	ulpfr	10
50