trunk/t/table.t

#!/usr/bin/perl -w

use strict;

use Test::More;
#use blib;

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

plan tests => 17;

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

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

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	dpavlin	115	#use blib;
7	ulpfr	10
8	dpavlin	114	BEGIN { use_ok('WAIT::Database'); }
9			END { system 'rm -rf test' if -d 'test'; }
10	ulpfr	10
11	dpavlin	115	plan tests => 17;
12	ulpfr	10
13	dpavlin	114	ok(my $db = WAIT::Database->create(name => 'test'), "create");
14	ulpfr	10
15	dpavlin	114	ok(my $tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
16	ulpfr	10
17	dpavlin	114	ok($db->drop_table(name => 'sample'), "drop_table");
18	ulpfr	10
19	dpavlin	115	ok($tb->drop, "tb->drop");
20	ulpfr	10
21	dpavlin	115	ok($tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
22	ulpfr	10
23	dpavlin	114	ok($tb->open, "tb->open");
24	ulpfr	10
25	dpavlin	114	ok($tb->close, "tb->close");
26	ulpfr	10
27	dpavlin	114	ok(defined $tb,"defined tb");
28	ulpfr	10
29	dpavlin	114	ok($db->close, "db->close");
30	ulpfr	19
31	dpavlin	114	ok($db = WAIT::Database->open(name => 'test'), "open");
32	ulpfr	10
33	dpavlin	114	ok($tb = $db->table(name => 'sample'), "db->table");
34
35			ok($tb->open, "tb->open");
36
37			ok($tb->set(top=>1), "tb->set(top=>1)");
38
39			ok($tb->drop, "tb->drop");
40			ok(!defined $tb, "undef tb");
41
42	ulpfr	10	# clean up
43	dpavlin	114	ok($db->dispose, "dispose");
44			ok(!defined $db, "undef db");
45	ulpfr	10
46