/[Search-Estraier]/trunk/t/1_Document.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/t/1_Document.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 185 - (show annotations)
Sun Nov 5 15:53:01 2006 UTC (17 years, 4 months ago) by dpavlin
File MIME type: application/x-troff
File size: 3070 byte(s)
add tests for set_score and score
1 #!/usr/bin/perl -w
2
3 use strict;
4 use blib;
5
6 use Test::More tests => 60;
7 use Test::Exception;
8 use Data::Dumper;
9
10 BEGIN { use_ok('Search::Estraier') };
11
12 #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 my $debug = shift @ARGV;
17
18 my $attr_data = {
19 '@uri' => 'http://localhost/Search-Estraier/',
20 'size' => 42,
21 'zero' => 0,
22 'foo' => 'bar',
23 'empty' => '',
24 };
25
26 my @test_texts = (
27 'This is a test',
28 'of pure-perl bindings',
29 'for HyperEstraier'
30 );
31
32 my $vectors = {
33 'foo' => 42,
34 'bar' => 100,
35 'baz' => 0,
36 };
37
38 ok(my $doc = new Search::Estraier::Document, 'new');
39
40 isa_ok($doc, 'Search::Estraier::Document');
41
42 cmp_ok($doc->id, '==', -1, 'id');
43
44 ok($doc->delete, "delete");
45
46 ok($doc = new Search::Estraier::Document, 'new');
47
48 foreach my $a (keys %{$attr_data}) {
49 my $d = $attr_data->{$a};
50 ok($doc->add_attr($a, $d), "add_attr $a = $d");
51 #diag "draft:\n",$doc->dump_draft,Dumper($doc->{attrs});
52 cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d");
53 }
54
55 foreach my $t (@test_texts) {
56 ok($doc->add_text($t), "add_text: $t");
57 }
58
59 ok($doc->add_hidden_text('This is hidden text'), 'add_hidden_text');
60
61 ok($doc->add_vectors( %{ $vectors } ), 'add_vectors');
62
63 diag "current doc: ", Dumper($doc) if ($debug);
64
65 ok(my @texts = $doc->texts, 'texts');
66
67 ok(my $draft = $doc->dump_draft, 'dump_draft');
68
69 foreach my $a (keys %{$attr_data}) {
70 my $regex = $a . '=' . $attr_data->{$a};
71 like($draft, qr/$regex/, "draft has $regex");
72 }
73
74 diag "dump_draft:\n$draft" if ($debug);
75
76 ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft');
77 diag "doc from draft: ", Dumper($doc2) if ($debug);
78 cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');
79
80 cmp_ok($doc->id, '==', -1, 'id');
81 cmp_ok($doc2->id, '==', -1, 'id');
82
83 ok(my @attr = $doc->attr_names, 'attr_names');
84 diag "attr_names: ", join(',',@attr), "\n" if ($debug);
85
86 cmp_ok(scalar @attr, '==', keys %{$attr_data}, 'attr_names');
87
88 ok(! $doc->attr('foobar'), "non-existant attr");
89
90 foreach my $a (keys %{$attr_data}) {
91 cmp_ok($doc->attr($a), 'eq', $attr_data->{$a}, "attr $a = ".$attr_data->{$a});
92 ok($doc->add_attr($a, undef), "delete attribute");
93 }
94
95 @attr = $doc->attr_names;
96 diag "attr_names left: ", join(',',$doc->attr_names), "\n" if ($debug);
97 cmp_ok(@attr, '==' , 0, "attributes removed");
98
99 diag "texts: ", join(',',@texts), "\n" if ($debug);
100 ok(eq_array(\@test_texts, \@texts), 'texts');
101
102 ok(my $cat_text = $doc->cat_texts, 'cat_text');
103 diag "cat_texts: $cat_text" if ($debug);
104
105 ok($doc = new Search::Estraier::Document, 'new empty');
106 ok(! $doc->texts, 'texts');
107 cmp_ok($doc->dump_draft, 'eq', "\n", 'dump_draft');
108 cmp_ok($doc->id, '==', -1, 'id');
109 ok(! $doc->attr_names, 'attr_names');
110 ok(! $doc->attr(undef), 'attr');
111 ok(! $doc->cat_texts, 'cat_texts');
112
113 ok($doc = new Search::Estraier::Document, 'new empty');
114 cmp_ok($doc->score, '==', -1, 'no score');
115 ok($doc->set_score(12345), 'set_score');
116 cmp_ok($doc->score, '==', 12345, 'score');
117 like($doc->dump_draft, qr/%SCORE\s+12345/, 'dump_draft has %SCORE');
118

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26