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