trunk/t/1_Document.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 45;
use Test::Exception;
use Data::Dumper;

BEGIN { use_ok('Search::Estraier') };

#print Search::Estraier::Document::_s('foo');

#cmp_ok(Search::Estraier::Document::_s("  this  is a  text  "), 'eq', 'this is a text', '_s - strip spaces');


my $attr_data = {
        '@uri' => 'http://localhost/Search-Estraier/',
        'size' => 42,
        'zero' => 0,
        'foo' => 'bar',
};

my @test_texts = (
        'This is a test',
        'of pure-perl bindings',
        'for HyperEstraier'
);

ok(my $doc = new Search::Estraier::Document, 'new');

isa_ok($doc, 'Search::Estraier::Document');

cmp_ok($doc->id, '==', -1, 'id');

ok($doc->delete, "delete");

ok($doc = new Search::Estraier::Document, 'new');

foreach my $a (keys %{$attr_data}) {
        my $d = $attr_data->{$a};
        ok($doc->add_attr($a, $d), "add_attr $a = $d");
        diag "draft:\n",$doc->dump_draft,Dumper($doc->{attrs});
        cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d");
}

foreach my $t (@test_texts) {
        ok($doc->add_text($t), "add_text: $t");
}

ok($doc->add_hidden_text('This is hidden text'), 'add_hidden_text');

ok(my @texts = $doc->texts, 'texts');

ok(my $draft = $doc->dump_draft, 'dump_draft');

#diag "dump_draft:\n$draft";

ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft');
cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');

cmp_ok($doc->id, '==', -1, 'id');
cmp_ok($doc2->id, '==', -1, 'id');

ok(my @attr = $doc->attr_names, 'attr_names');
#diag "attr_names: ", join(',',@attr), "\n";

cmp_ok(scalar @attr, '==', keys %{$attr_data}, 'attr_names');

ok(! $doc->attr('foobar'), "non-existant attr");

foreach my $a (keys %{$attr_data}) {
        cmp_ok($doc->attr($a), 'eq', $attr_data->{$a}, "attr $a = ".$attr_data->{$a});
        ok($doc->add_attr($a, undef), "delete attribute");
}

@attr = $doc->attr_names;
#diag "attr_names left: ", join(',',$doc->attr_names), "\n";
cmp_ok(@attr, '==' , 0, "attributes removed");

#diag "texts: ", join(',',@texts), "\n";
ok(eq_array(\@test_texts, \@texts), 'texts');

ok(my $cat_text = $doc->cat_texts, 'cat_text');
#diag "cat_texts: $cat_text";

ok($doc = new Search::Estraier::Document, 'new empty');
ok(! $doc->texts, 'texts');
cmp_ok($doc->dump_draft, 'eq', "\n", 'dump_draft');
cmp_ok($doc->id, '==', -1, 'id');
ok(! $doc->attr_names, 'attr_names');
ok(! $doc->attr(undef), 'attr');
ok(! $doc->cat_texts, 'cat_texts');

#diag Dumper($doc);
1	dpavlin	2	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6	dpavlin	95	use Test::More tests => 45;
7	dpavlin	9	use Test::Exception;
8	dpavlin	10	use Data::Dumper;
9	dpavlin	2
10			BEGIN { use_ok('Search::Estraier') };
11
12	dpavlin	4	#print Search::Estraier::Document::_s('foo');
13
14			#cmp_ok(Search::Estraier::Document::_s(" this is a text "), 'eq', 'this is a text', '_s - strip spaces');
15
16
17	dpavlin	2	my $attr_data = {
18			'@uri' => 'http://localhost/Search-Estraier/',
19			'size' => 42,
20	dpavlin	95	'zero' => 0,
21			'foo' => 'bar',
22	dpavlin	2	};
23
24	dpavlin	10	my @test_texts = (
25			'This is a test',
26			'of pure-perl bindings',
27			'for HyperEstraier'
28			);
29
30	dpavlin	6	ok(my $doc = new Search::Estraier::Document, 'new');
31	dpavlin	2
32	dpavlin	9	isa_ok($doc, 'Search::Estraier::Document');
33
34	dpavlin	6	cmp_ok($doc->id, '==', -1, 'id');
35	dpavlin	2
36	dpavlin	6	ok($doc->delete, "delete");
37	dpavlin	2
38	dpavlin	6	ok($doc = new Search::Estraier::Document, 'new');
39
40	dpavlin	2	foreach my $a (keys %{$attr_data}) {
41	dpavlin	95	my $d = $attr_data->{$a};
42			ok($doc->add_attr($a, $d), "add_attr $a = $d");
43			diag "draft:\n",$doc->dump_draft,Dumper($doc->{attrs});
44	dpavlin	8	cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d");
45	dpavlin	2	}
46
47	dpavlin	10	foreach my $t (@test_texts) {
48			ok($doc->add_text($t), "add_text: $t");
49			}
50
51	dpavlin	6	ok($doc->add_hidden_text('This is hidden text'), 'add_hidden_text');
52	dpavlin	2
53	dpavlin	60	ok(my @texts = $doc->texts, 'texts');
54	dpavlin	9
55	dpavlin	6	ok(my $draft = $doc->dump_draft, 'dump_draft');
56	dpavlin	2
57	dpavlin	26	#diag "dump_draft:\n$draft";
58	dpavlin	2
59	dpavlin	14	ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft');
60			cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');
61	dpavlin	2
62	dpavlin	6	cmp_ok($doc->id, '==', -1, 'id');
63	dpavlin	14	cmp_ok($doc2->id, '==', -1, 'id');
64	dpavlin	2
65	dpavlin	9	ok(my @attr = $doc->attr_names, 'attr_names');
66	dpavlin	26	#diag "attr_names: ", join(',',@attr), "\n";
67	dpavlin	2
68	dpavlin	95	cmp_ok(scalar @attr, '==', keys %{$attr_data}, 'attr_names');
69	dpavlin	2
70	dpavlin	6	ok(! $doc->attr('foobar'), "non-existant attr");
71	dpavlin	2
72			foreach my $a (keys %{$attr_data}) {
73	dpavlin	95	cmp_ok($doc->attr($a), 'eq', $attr_data->{$a}, "attr $a = ".$attr_data->{$a});
74	dpavlin	9	ok($doc->add_attr($a, undef), "delete attribute");
75	dpavlin	2	}
76
77	dpavlin	10	@attr = $doc->attr_names;
78	dpavlin	6	#diag "attr_names left: ", join(',',$doc->attr_names), "\n";
79	dpavlin	9	cmp_ok(@attr, '==' , 0, "attributes removed");
80	dpavlin	2
81	dpavlin	26	#diag "texts: ", join(',',@texts), "\n";
82	dpavlin	10	ok(eq_array(\@test_texts, \@texts), 'texts');
83	dpavlin	2
84	dpavlin	12	ok(my $cat_text = $doc->cat_texts, 'cat_text');
85	dpavlin	26	#diag "cat_texts: $cat_text";
86	dpavlin	12
87	dpavlin	60	ok($doc = new Search::Estraier::Document, 'new empty');
88			ok(! $doc->texts, 'texts');
89			cmp_ok($doc->dump_draft, 'eq', "\n", 'dump_draft');
90			cmp_ok($doc->id, '==', -1, 'id');
91			ok(! $doc->attr_names, 'attr_names');
92			ok(! $doc->attr(undef), 'attr');
93			ok(! $doc->cat_texts, 'cat_texts');
94
95	dpavlin	12	#diag Dumper($doc);