trunk/t/insert.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 => 21;

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

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

ok(my $tid = $tb->insert(docid => 1, term => 'IR'), "insert IR");

$tb->sync;

ok(my %tp = $tb->fetch($tid), "fetch");
ok(($tp{docid} == 1 and $tp{term} eq 'IR'), "fetch == IR");

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

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

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

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

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

ok(%tp = $tb->fetch($tid), "fetch");
ok(($tp{docid} == 1 and $tp{term} eq 'IR'), "fetch == IR");

ok($tb->delete(%tp), "delete");

ok($tb->delete_by_key($tid), "delete_by_key");

# can we reuse tid?
ok(my $ntid = $tb->insert(docid => 1, term => 'IR'), "tid reuse");

ok(%tp = $tb->fetch($ntid), "fetch");
ok(($tp{docid} == 1 and $tp{term} eq 'IR'), "fetch == IR");

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

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

1	dpavlin	115	#!/usr/bin/perl -w
2	ulpfr	10
3	dpavlin	115	use strict;
4	ulpfr	10
5	dpavlin	115	use Test::More;
6			use blib;
7	ulpfr	10
8	dpavlin	115	BEGIN { use_ok('WAIT::Database'); }
9			END { system 'rm -rf test' if -d 'test'; }
10	ulpfr	10
11	dpavlin	115	plan tests => 21;
12	ulpfr	10
13	dpavlin	115	ok(my $db = WAIT::Database->create(name => 'test'), "create");
14	ulpfr	10
15	dpavlin	115	ok(my $tb = $db->create_table(name => 'sample', attr => ['docid', 'term']), "create_table");
16	ulpfr	10
17	dpavlin	115	ok(my $tid = $tb->insert(docid => 1, term => 'IR'), "insert IR");
18	ulpfr	10
19			$tb->sync;
20
21	dpavlin	115	ok(my %tp = $tb->fetch($tid), "fetch");
22			ok(($tp{docid} == 1 and $tp{term} eq 'IR'), "fetch == IR");
23	ulpfr	10
24	dpavlin	115	ok($tb->close, "tb->close");
25	ulpfr	10
26	dpavlin	115	ok($db->close, "db->close");
27	ulpfr	10
28	dpavlin	115	ok($db = WAIT::Database->open(name => 'test'), "open");
29	ulpfr	10
30	dpavlin	115	ok($tb = $db->table(name => 'sample'), "table");
31	ulpfr	10
32	dpavlin	115	ok($tb->open, "open");
33	ulpfr	10
34	dpavlin	115	ok(%tp = $tb->fetch($tid), "fetch");
35			ok(($tp{docid} == 1 and $tp{term} eq 'IR'), "fetch == IR");
36	ulpfr	10
37	dpavlin	115	ok($tb->delete(%tp), "delete");
38	ulpfr	10
39	dpavlin	115	ok($tb->delete_by_key($tid), "delete_by_key");
40	ulpfr	10
41			# can we reuse tid?
42	dpavlin	115	ok(my $ntid = $tb->insert(docid => 1, term => 'IR'), "tid reuse");
43	ulpfr	10
44	dpavlin	115	ok(%tp = $tb->fetch($ntid), "fetch");
45			ok(($tp{docid} == 1 and $tp{term} eq 'IR'), "fetch == IR");
46	ulpfr	10
47	dpavlin	115	ok($tb->close, "close");
48	ulpfr	10
49			# clean up
50	dpavlin	115	ok($db->dispose, "dispose");
51			ok(!defined $db, "undef db");
52			ok(defined $tb,"defined tb");
53	ulpfr	10