/[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 12 - (show annotations)
Wed Jan 4 19:28:30 2006 UTC (18 years, 2 months ago) by dpavlin
File MIME type: application/x-troff
File size: 2452 byte(s)
added cat_texts
1 #!/usr/bin/perl -w
2
3 use strict;
4 use blib;
5
6 use Test::More tests => 30;
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
17 my $attr_data = {
18 '@uri' => 'http://localhost/Search-Estraier/',
19 'size' => 42,
20 };
21
22 my @test_texts = (
23 'This is a test',
24 'of pure-perl bindings',
25 'for HyperEstraier'
26 );
27
28 ok(my $doc = new Search::Estraier::Document, 'new');
29
30 isa_ok($doc, 'Search::Estraier::Document');
31
32 cmp_ok($doc->id, '==', -1, 'id');
33
34 ok($doc->delete, "delete");
35
36 ok($doc = new Search::Estraier::Document, 'new');
37
38 foreach my $a (keys %{$attr_data}) {
39 my $d = $attr_data->{$a} || die;
40 ok($doc->add_attr($a, $d), "add_attr $a");
41 cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d");
42 }
43
44 foreach my $t (@test_texts) {
45 ok($doc->add_text($t), "add_text: $t");
46 }
47
48 ok($doc->add_hidden_text('This is hidden text'), 'add_hidden_text');
49
50 throws_ok { my $text = $doc->texts } qr/return array/, 'texts scalar';
51 ok(my @texts = $doc->texts, 'texts array');
52
53 ok(my $draft = $doc->dump_draft, 'dump_draft');
54
55 diag "dump_draft:\n$draft";
56
57 #ok(my $doc2 = new_from_draft Search::Estraier::Document($draft), 'new_from_draft');
58 #cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');
59
60 cmp_ok($doc->id, '==', -1, 'id');
61 #cmp_ok($doc2->id, '==', -1, 'id');
62
63 ok(my @attr = $doc->attr_names, 'attr_names');
64 diag "attr_names: ", join(',',@attr), "\n";
65
66 cmp_ok(scalar @attr, '==', 2, 'attr_names');
67
68 ok(! $doc->attr('foobar'), "non-existant attr");
69
70 foreach my $a (keys %{$attr_data}) {
71 cmp_ok($attr_data->{$a}, 'eq', $doc->attr($a), "attr $a = ".$attr_data->{$a});
72 ok($doc->add_attr($a, undef), "delete attribute");
73 }
74
75 @attr = $doc->attr_names;
76 #diag "attr_names left: ", join(',',$doc->attr_names), "\n";
77 cmp_ok(@attr, '==' , 0, "attributes removed");
78
79 diag "texts: ", join(',',@texts), "\n";
80 ok(eq_array(\@test_texts, \@texts), 'texts');
81
82 ok(my $cat_text = $doc->cat_texts, 'cat_text');
83 diag "cat_texts: $cat_text";
84
85
86 SKIP: {
87 skip "est_keywords not implemented", 2;
88
89 my @keywords = $doc->keywords;
90 diag "keywords: ", join(',',@keywords), "\n";
91
92 cmp_ok(scalar @keywords, '==', 1, 'keywords');
93 }
94
95
96 #ok(my $snippet = $doc->make_snippet(480, 96, 96, qw(demo is)), "make_snippet");
97 #diag "make_snippet:\n$snippet";
98
99 #ok($doc->scan_words(qw(this is demo)), "scan_words");
100
101 #diag Dumper($doc);

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26